Changeset 9849 for trunk/PS-IPP-Metadata-Config/t/08_strings.t

Timestamp:

Nov 3, 2006, 3:25:32 PM (20 years ago)

Author:

jhoblitt

Message:

fix handling of NULL strings

File:

• trunk/PS-IPP-Metadata-Config/t/08_strings.t (modified) (3 diffs)

trunk/PS-IPP-Metadata-Config/t/08_strings.t

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: 08_strings.t,v 1.1 2006-10-04 01:24:03 jhoblitt Exp $
+# $Id: 08_strings.t,v 1.2 2006-11-04 01:25:32 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 2;
+use Test::More tests => 4;
 use PS::IPP::Metadata::Config;
 
@@ -45 +45 @@
     is_deeply( $config, $tree, "str structure" );
 }
+
+{
+my $example =<<END;
+mystr   MULTI
+mystr   STR     NULL 
+mystr   STR     NULL    # some comment
+END
+
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "NULL strs parsed");
+
+    my $tree = [
+        {
+            name    => 'mystr',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => undef,
+        },
+        {
+            name    => 'mystr',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => undef,
+            comment => 'some comment',
+        },
+    ];
+
+    is_deeply( $config, $tree, "NULL str structure" );
+}