Index: /trunk/PS-IPP-Metadata-Config/t/02_sdrs_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/02_sdrs_example.t	(revision 3393)
+++ /trunk/PS-IPP-Metadata-Config/t/02_sdrs_example.t	(revision 3394)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 02_sdrs_example.t,v 1.1.1.1 2005-03-01 03:40:20 jhoblitt Exp $
+# $Id: 02_sdrs_example.t,v 1.2 2005-03-09 23:42:03 jhoblitt Exp $
 
 use strict;
@@ -9,4 +9,6 @@
 
 use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
 
 use Test::More tests => 1;
@@ -24,10 +26,10 @@
 Float    F32 0.98765#This is a comment too
 String  STR This is the string that forms the value #comment
-                                                                                                                                          
+
  # This is a comment line and is to be ignored
 boolean     BOOL    T # The value of `boolean' is `true'
-                                                                                                                                          
+ 
 @primes U8  2,3 5 7,11,13 17 #   These are prime numbers
-                                                                                                                                          
+
 comment * The rest of this line is ignored, but `comment' is set to be non-unique
 comment STR This
Index: /trunk/PS-IPP-Metadata-Config/t/03_gene_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/03_gene_example.t	(revision 3393)
+++ /trunk/PS-IPP-Metadata-Config/t/03_gene_example.t	(revision 3394)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 03_gene_example.t,v 1.1.1.1 2005-03-01 03:41:05 jhoblitt Exp $
+# $Id: 03_gene_example.t,v 1.2 2005-03-09 23:42:03 jhoblitt Exp $
 
 use strict;
@@ -9,4 +9,6 @@
 
 use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
 
 use Test::More tests => 1;
Index: /trunk/PS-IPP-Metadata-Config/t/04_metadata_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/04_metadata_example.t	(revision 3394)
+++ /trunk/PS-IPP-Metadata-Config/t/04_metadata_example.t	(revision 3394)
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 04_metadata_example.t,v 1.1 2005-03-09 23:42:03 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 1;
+use PS::IPP::Metadata::Config;
+
+my $example = do { local $/; <DATA> };
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+my $pt = $config_parser->parse( $example );
+
+ok( defined( $pt ), "valid parase tree");
+
+__DATA__
+CELL      METADATA
+ EXTNAME   STR   CCD00
+ BIASSEC   STR   BSEC-00
+ CHIP      STR   CHIP.00
+ NCELL     S32   24
+END
Index: /trunk/PS-IPP-Metadata-Config/t/05_nested_metadata_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/05_nested_metadata_example.t	(revision 3394)
+++ /trunk/PS-IPP-Metadata-Config/t/05_nested_metadata_example.t	(revision 3394)
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 05_nested_metadata_example.t,v 1.1 2005-03-09 23:42:03 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 1;
+use PS::IPP::Metadata::Config;
+
+my $example = do { local $/; <DATA> };
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+my $pt = $config_parser->parse( $example );
+
+ok( defined( $pt ), "valid parase tree");
+
+__DATA__
+CELL      METADATA
+    FOO METADATA
+        BAR     STR BAZ
+        PING    STR PONG
+    END
+    
+    EXTNAME   STR   CCD00
+    BIASSEC   STR   BSEC-00
+    CHIP      STR   CHIP.00
+    NCELL     S32   24
+END
Index: /trunk/PS-IPP-Metadata-Config/t/06_nested_metadata_example2.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/06_nested_metadata_example2.t	(revision 3394)
+++ /trunk/PS-IPP-Metadata-Config/t/06_nested_metadata_example2.t	(revision 3394)
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 06_nested_metadata_example2.t,v 1.1 2005-03-09 23:42:03 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 1;
+use PS::IPP::Metadata::Config;
+
+my $example = do { local $/; <DATA> };
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+my $pt = $config_parser->parse( $example );
+
+ok( defined( $pt ), "valid parase tree");
+
+__DATA__
+FOO1 METADATA
+    FOO2 METADATA
+        FOO3 METADATA
+            FOO4 METADATA
+                FOO5 METADATA
+                    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
Index: /trunk/PS-IPP-Metadata-Config/t/07_nested_metadata_example3.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/07_nested_metadata_example3.t	(revision 3394)
+++ /trunk/PS-IPP-Metadata-Config/t/07_nested_metadata_example3.t	(revision 3394)
@@ -0,0 +1,60 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 07_nested_metadata_example3.t,v 1.1 2005-03-09 23:42:03 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 1;
+use PS::IPP::Metadata::Config;
+
+my $example = do { local $/; <DATA> };
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+my $pt = $config_parser->parse( $example );
+
+ok( defined( $pt ), "valid parase tree");
+
+__DATA__
+FOO1 METADATA
+    BAR     STR BAZ
+    PING    STR PONG
+    FOO2 METADATA
+        BAR     STR BAZ
+        PING    STR PONG
+        FOO3 METADATA
+            BAR     STR BAZ
+            PING    STR PONG
+            FOO4 METADATA
+                BAR     STR BAZ
+                PING    STR PONG
+                FOO5 METADATA
+                    BAR     STR BAZ
+                    PING    STR PONG
+                    FOO6 METADATA
+                        BAR     STR BAZ
+                        PING    STR PONG
+                        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
Index: /trunk/PS-IPP-Metadata-Config/t/08_nested_metadata_example4.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/08_nested_metadata_example4.t	(revision 3394)
+++ /trunk/PS-IPP-Metadata-Config/t/08_nested_metadata_example4.t	(revision 3394)
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 08_nested_metadata_example4.t,v 1.1 2005-03-09 23:42:03 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 1;
+use PS::IPP::Metadata::Config;
+
+my $example = do { local $/; <DATA> };
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+my $pt = $config_parser->parse( $example );
+
+ok( defined( $pt ), "valid parase tree");
+
+__DATA__
+FOO1 METADATA
+    FOO2 METADATA
+        BAR     STR BAZ
+        PING    STR PONG
+    END
+    FOO3 METADATA
+        BAR     STR BAZ
+        PING    STR PONG
+    END
+END