Changeset 9495 for trunk/PS-IPP-Metadata-Config/t/03_metadata.t

Timestamp:

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

Author:

jhoblitt

Message:

add support for empty METADATAs

File:

• trunk/PS-IPP-Metadata-Config/t/03_metadata.t (modified) (3 diffs)

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");
+}