Changeset 9495

Timestamp:

Oct 11, 2006, 4:08:51 PM (20 years ago)

Author:

jhoblitt

Message:

add support for empty METADATAs

Location:

trunk/PS-IPP-Metadata-Config

Files:

• Changes (modified) (1 diff)
• config_grammar.txt (modified) (3 diffs)
• t/03_metadata.t (modified) (3 diffs)

trunk/PS-IPP-Metadata-Config/Changes

@@ -1 +1 @@
 Revision history for Perl module PS::IPP::Metadata::Config
+
+0.08
+    - add support for empty METADATAs
 
 0.07 Tue Oct 10 17:09:28 HST 2006

trunk/PS-IPP-Metadata-Config/config_grammar.txt

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: config_grammar.txt,v 1.5 2006-10-11 03:08:36 jhoblitt Exp $
+# $Id: config_grammar.txt,v 1.6 2006-10-12 02:08:51 jhoblitt Exp $
 
 {
@@ -87 +87 @@
 
 metadata:
-    metadata_name <commit> 
+    metadata_name 
     { push @scope_stack, $thisparser->{local}; $thisparser->{local} = {} }
     grammar
@@ -103 +103 @@
                 $return = undef;
             }
+
+            if ( defined $thisparser->{local}{name}{ $item{metadata_name} } ) {
+                $return->{multi}++
+                    if $thisparser->{local}{name}{ $item{metadata_name} } =~ /MULTI/;
+            } else {
+                $thisparser->{local}{name}{ $item{metadata_name} }++;
+            }
+        } 
+    | metadata_name <commit> comment_line(s?) metadata_end
+        {
+            $return = {
+                class   => 'metadata',
+                name    => $item{metadata_name},
+                value   => [],
+            };
 
             if ( defined $thisparser->{local}{name}{ $item{metadata_name} } ) {

trunk/PS-IPP-Metadata-Config/t/03_metadata.t

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 03_metadata.t,v 1.3 2005-05-04 22:05:24 jhoblitt Exp $
+# $Id: 03_metadata.t,v 1.4 2006-10-12 02:08:51 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 7;
+use Test::More tests => 9;
 use PS::IPP::Metadata::Config;
 
@@ -177 +177 @@
     ok( defined( $config ), "two metadata at the same depth");
 }
+
+{
+my $example = q{
+foo METADATA
+END
+};
+    my $config = PS::IPP::Metadata::Config->new->parse( $example );
+
+    ok( defined( $config ), "empty METADATA");
+
+    my $tree = [
+        {
+            name    => 'foo',
+            class   => 'metadata',
+            value   => [],
+        },
+    ];
+
+    is_deeply( $config, $tree, "empty METADATA structure");
+}