Changeset 3496 for trunk/PS-IPP-Metadata-Config/t/06_multi.t

Timestamp:

Mar 24, 2005, 12:32:55 PM (21 years ago)

Author:

jhoblitt

Message:

add MULTI METADATA and MULTI TYPE tests

File:

• trunk/PS-IPP-Metadata-Config/t/06_multi.t (modified) (3 diffs)

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

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 06_multi.t,v 1.4 2005-03-24 22:07:25 jhoblitt Exp $
+# $Id: 06_multi.t,v 1.5 2005-03-24 22:32:55 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 8;
+use Test::More tests => 13;
 use PS::IPP::Metadata::Config;
 
@@ -59 +59 @@
 my $example = q{
 foo MULTI
+foo METADATA
+    bar BOOL    T
+END
+foo METADATA
+    bar BOOL    T
+END
+};
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "MULTI METADATA");
+}
+
+{
+my $example = q{
+foo METADATA
+    bar BOOL    T
+END
+foo METADATA
+    bar BOOL    T
+END
+};
+    my $config = $config_parser->parse( $example );
+
+    my $tree = [
+        {
+            name    => 'foo',
+            class   => 'metadata',
+            value   => [{
+                            name    => 'bar',
+                            class   => 'scalar',
+                            type    => 'BOOL',
+                            value   => 1,
+                        }],
+        },
+    ];
+
+    is_deeply( $config, $tree, "MULTI METADATA structure, not declared" );
+}
+
+{
+my $example = q{
+foo MULTI
+TYPE bar a b c
+foo  bar x y z
+foo  bar x y z
+};
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "MULTI TYPE");
+}
+
+{
+my $example = q{
+TYPE bar a b c
+foo MULTI
+foo  bar x y z
+foo  bar x y z
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "MULTI TYPE");
+}
+
+{
+my $example = q{
+TYPE bar a b c
+foo  bar x y z
+foo  bar x y z
+};
+    my $config = $config_parser->parse( $example );
+
+    my $tree = [
+        {
+            name    => 'foo',
+            class   => 'metadata',
+            value   => [
+                {
+                    name    => 'a',
+                    class   => 'scalar',
+                    type    => 'STR',
+                    value   => 'x',
+                },
+                {
+                    name    => 'b',
+                    class   => 'scalar',
+                    type    => 'STR',
+                    value   => 'y',
+                },
+                {
+                    name    => 'c',
+                    class   => 'scalar',
+                    type    => 'STR',
+                    value   => 'z',
+                },
+            ],
+        },
+    ];
+
+    is_deeply( $config, $tree, "MULTI TYPE structure, not declared" );
+}
+
+{
+my $example = q{
+foo MULTI
 bar METADATA
     foo S8      -1