Changeset 3486

Timestamp:

Mar 23, 2005, 12:07:49 PM (21 years ago)

Author:

jhoblitt

Message:

fix broken tests

Location:

trunk/PS-IPP-Metadata-Config/t

Files:

• 03_metadata.t (modified) (3 diffs)
• 06_multi.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.1 2005-03-23 01:53:55 jhoblitt Exp $
+# $Id: 03_metadata.t,v 1.2 2005-03-23 22:07:49 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 5;
+use Test::More tests => 6;
 use PS::IPP::Metadata::Config;
 
@@ -102 +102 @@
                         BAR     STR BAZ
                         PING    STR PONG
+                    END
+                END
+            END
+        END
+    END
+END
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "deeply nested metadata");
+}
+
+{
+my $example = q{
+FOO1 METADATA
+    BAR     STR BAZ
+    FOO2 METADATA
+        BAR     STR BAZ
+        FOO3 METADATA
+            BAR     STR BAZ
+            FOO4 METADATA
+                BAR     STR BAZ
+                FOO5 METADATA
+                    BAR     STR BAZ
+                    FOO6 METADATA
                         BAR     STR BAZ
                         PING    STR PONG
                     END
-                    BAR     STR BAZ
                     PING    STR PONG
                 END
-                BAR     STR BAZ
                 PING    STR PONG
             END
-            BAR     STR BAZ
             PING    STR PONG
         END
-        BAR     STR BAZ
         PING    STR PONG
     END
-    BAR     STR BAZ
     PING    STR PONG
 END

trunk/PS-IPP-Metadata-Config/t/06_multi.t

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 06_multi.t,v 1.2 2005-03-23 19:27:25 jhoblitt Exp $
+# $Id: 06_multi.t,v 1.3 2005-03-23 22:03:52 jhoblitt Exp $
 
 use strict;
@@ -61 +61 @@
 bar METADATA
     foo S8      -1
+    foo STR     bar baz
 END
 };
@@ -73 +74 @@
 END
 foo S8      -1
+foo STR     bar baz
 };
     my $config = $config_parser->parse( $example );