Index: /trunk/PS-IPP-Metadata-Config/t/02_examples.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/02_examples.t	(revision 3478)
+++ /trunk/PS-IPP-Metadata-Config/t/02_examples.t	(revision 3478)
@@ -0,0 +1,198 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 02_examples.t,v 1.1 2005-03-23 01:53:55 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 3;
+use PS::IPP::Metadata::Config;
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+my $example = q{
+Double     F64     1.23456789      # This is a comment
+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
+comment STR     is
+comment STR       a
+comment STR        non-unique
+comment STR                  key
+Float F64 1.23456 # This generates a warning, and, if `overwrite' is `false', is ignored
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "SDRS example parsed");
+
+    my $tree = [
+        {
+            name    => 'Double',
+            class   => 'scalar',
+            type    => 'F64',
+            value   => '1.23456789',
+            comment => 'This is a comment',
+        },
+        {
+            name    => 'Float',
+            class   => 'scalar',
+            type    => 'F32',
+            value   => '0.98765',
+            comment => 'This is a comment too',
+        },
+        {
+            name    => 'String',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'This is the string that forms the value',
+            comment => 'comment',
+        },
+        {
+            name    => 'boolean',
+            class   => 'scalar',
+            type    => 'BOOL',
+            value   => 1,
+            comment => q{The value of `boolean' is `true'},
+        },
+        {
+            name    => 'primes',
+            class   => 'vector',
+            type    => 'U8',
+            value   => [qw( 2 3 5 7 11 13 17 )],
+            comment => 'These are prime numbers',
+        },
+        {
+            name    => 'comment',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'This',
+        },
+        {
+            name    => 'comment',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'is',
+        },
+        {
+            name    => 'comment',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'a',
+        },
+        {
+            name    => 'comment',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'non-unique',
+        },
+        {
+            name    => 'comment',
+            class   => 'scalar',
+            type    => 'STR',
+            value   => 'key',
+        },
+        {
+            name    => 'Float',
+            class   => 'scalar',
+            type    => 'F64',
+            value   => '1.23456',
+            comment => q{This generates a warning, and, if `overwrite' is `false', is ignored},
+        },
+    ];
+
+    is_deeply( $config, $tree, "SDRS example structure" );
+}
+
+{
+my $example = q{
+# these are examples of camera definition variables:
+# skyprobe
+NCELL       S32    1
+NCHIP       S32    1
+#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC     
+CELL.00     STR    %f00.%x     PHU      [0,0:0,0]   CHIP.00   [0,0:0,0] 
+                   
+# megacam-raw      
+NCELL       S32    72
+NCHIP       S32    36
+#                  FILENAME    EXTNAME  DATASEC     CHIP      BIASSEC     
+CELL.00     STR    %f.%x       AMP00    [0,0:0,0]   CHIP.00   BIASSEC
+CELL.01     STR    %f.%x       AMP01    [0,0:0,0]   CHIP.00   [2100,2110:0,4096]   
+CELL.02     STR    %f.%x       AMP02    [0,0:0,0]   CHIP.01   [0,0:0,0]   
+CELL.03     STR    %f.%x       AMP03    [0,0:0,0]   CHIP.01   [0,0:0,0]   
+
+# megacam-splice
+NCELL       S32    72
+NCHIP       S32    36
+#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC   TRIMSEC
+CELL.00     STR    %f.%x       CCD00    ASEC-00     CHIP.00   BSEC-00   DSEC-00
+CELL.01     STR    %f.%x       CCD00    ASEC-01     CHIP.00   BSEC-01   DSEC-01
+CELL.02     STR    %f.%x       CCD01    ASEC-00     CHIP.01   BSEC-00   DSEC-00
+CELL.03     STR    %f.%x       CCD01    ASEC-01     CHIP.01   BSEC-01   DSEC-01
+
+# cfh12k-split
+NCELL       S32    12
+NCHIP       S32    12
+#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC     
+CELL.00     STR    %f/%f00.%x  PHU      [0,0:0,0]   CHIP.00   [0,0:0,0]   
+CELL.01     STR    %f/%f01.%x  PHU      [0,0:0,0]   CHIP.01   [0,0:0,0]   
+CELL.02     STR    %f/%f02.%x  PHU      [0,0:0,0]   CHIP.02   [0,0:0,0]   
+
+# cfh12k-mef
+NCELL       S32    12
+NCHIP       S32    12
+#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC     
+CELL.00     STR    %f.%x       CHIP00   [0,0:0,0]   CHIP.00   [0,0:0,0]   
+CELL.01     STR    %f.%x       CHIP01   [0,0:0,0]   CHIP.01   [0,0:0,0]   
+CELL.02     STR    %f.%x       CHIP02   [0,0:0,0]   CHIP.02   [0,0:0,0]   
+
+#- REGION can be defined by a header keyword in IRAF format or by a explicit IRAF format 
+#- what is default for NAXIS1,2 for IRAF format?
+#- Nreadout is always NAXIS3?
+
+# recipe file:
+# this makes the assumption that, for a given camera, all chips &
+# cells have the same recipe.  this is probably a good start, but may
+# not cut it in general. eg, it is already clear that for 
+
+# recipe file must be a function of time and camera.
+# 
+
+# BIAS:
+BIAS.IMAGE                 STR    NONE
+BIAS.IMAGE  		   STR    FILE:bias.fits
+BIAS.IMAGE  		   STR    DB:BEST
+BIAS.IMAGE  		   STR    DB:CLOSE
+
+BIAS.OVERSCAN 		   STR    HEADER:BIASSEC
+BIAS.OVERSCAN 		   STR    RECIPE:[0,0:0,0]
+BIAS.OVERSCAN 		   STR    NONE
+
+BIAS.OVERSCAN.STATS 	   STR    MEDIAN
+BIAS.OVERSCAN.STATS 	   STR    MEAN
+
+BIAS.OVERSCAN.FIT          STR    SPLINE
+BIAS.OVERSCAN.FIT.NPTS     S32    5
+
+BIAS.OVERSCAN.FIT          STR    POLYNOMIAL
+BIAS.OVERSCAN.FIT.ORDER    S32    3
+BIAS.OVERSCAN.FIT.NBIN     S32    5
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "GENE example");
+}
Index: unk/PS-IPP-Metadata-Config/t/02_sdrs_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/02_sdrs_example.t	(revision 3477)
+++ 	(revision )
@@ -1,40 +1,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2005  Joshua Hoblitt
-#
-# $Id: 02_sdrs_example.t,v 1.2 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__
-Double     F64     1.23456789      # This is a comment
-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
-comment STR     is
-comment STR       a
-comment STR        non-unique
-comment STR                  key
-Float F64 1.23456 # This generates a warning, and, if `overwrite' is `false', is ignored
Index: unk/PS-IPP-Metadata-Config/t/03_gene_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/03_gene_example.t	(revision 3477)
+++ 	(revision )
@@ -1,96 +1,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2005  Joshua Hoblitt
-#
-# $Id: 03_gene_example.t,v 1.2 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__
-# these are examples of camera definition variables:
-# skyprobe
-NCELL       S32    1
-NCHIP       S32    1
-#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC     
-CELL.00     STR    %f00.%x     PHU      [0,0:0,0]   CHIP.00   [0,0:0,0] 
-                   
-# megacam-raw      
-NCELL       S32    72
-NCHIP       S32    36
-#                  FILENAME    EXTNAME  DATASEC     CHIP      BIASSEC     
-CELL.00     STR    %f.%x       AMP00    [0,0:0,0]   CHIP.00   BIASSEC
-CELL.01     STR    %f.%x       AMP01    [0,0:0,0]   CHIP.00   [2100,2110:0,4096]   
-CELL.02     STR    %f.%x       AMP02    [0,0:0,0]   CHIP.01   [0,0:0,0]   
-CELL.03     STR    %f.%x       AMP03    [0,0:0,0]   CHIP.01   [0,0:0,0]   
-
-# megacam-splice
-NCELL       S32    72
-NCHIP       S32    36
-#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC   TRIMSEC
-CELL.00     STR    %f.%x       CCD00    ASEC-00     CHIP.00   BSEC-00   DSEC-00
-CELL.01     STR    %f.%x       CCD00    ASEC-01     CHIP.00   BSEC-01   DSEC-01
-CELL.02     STR    %f.%x       CCD01    ASEC-00     CHIP.01   BSEC-00   DSEC-00
-CELL.03     STR    %f.%x       CCD01    ASEC-01     CHIP.01   BSEC-01   DSEC-01
-
-# cfh12k-split
-NCELL       S32    12
-NCHIP       S32    12
-#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC     
-CELL.00     STR    %f/%f00.%x  PHU      [0,0:0,0]   CHIP.00   [0,0:0,0]   
-CELL.01     STR    %f/%f01.%x  PHU      [0,0:0,0]   CHIP.01   [0,0:0,0]   
-CELL.02     STR    %f/%f02.%x  PHU      [0,0:0,0]   CHIP.02   [0,0:0,0]   
-
-# cfh12k-mef
-NCELL       S32    12
-NCHIP       S32    12
-#                  FILENAME    EXTNAME  REGION      CHIP      BIASSEC     
-CELL.00     STR    %f.%x       CHIP00   [0,0:0,0]   CHIP.00   [0,0:0,0]   
-CELL.01     STR    %f.%x       CHIP01   [0,0:0,0]   CHIP.01   [0,0:0,0]   
-CELL.02     STR    %f.%x       CHIP02   [0,0:0,0]   CHIP.02   [0,0:0,0]   
-
-#- REGION can be defined by a header keyword in IRAF format or by a explicit IRAF format 
-#- what is default for NAXIS1,2 for IRAF format?
-#- Nreadout is always NAXIS3?
-
-# recipe file:
-# this makes the assumption that, for a given camera, all chips &
-# cells have the same recipe.  this is probably a good start, but may
-# not cut it in general. eg, it is already clear that for 
-
-# recipe file must be a function of time and camera.
-# 
-
-# BIAS:
-BIAS.IMAGE                 STR    NONE
-BIAS.IMAGE  		   STR    FILE:bias.fits
-BIAS.IMAGE  		   STR    DB:BEST
-BIAS.IMAGE  		   STR    DB:CLOSE
-
-BIAS.OVERSCAN 		   STR    HEADER:BIASSEC
-BIAS.OVERSCAN 		   STR    RECIPE:[0,0:0,0]
-BIAS.OVERSCAN 		   STR    NONE
-
-BIAS.OVERSCAN.STATS 	   STR    MEDIAN
-BIAS.OVERSCAN.STATS 	   STR    MEAN
-
-BIAS.OVERSCAN.FIT          STR    SPLINE
-BIAS.OVERSCAN.FIT.NPTS     S32    5
-
-BIAS.OVERSCAN.FIT          STR    POLYNOMIAL
-BIAS.OVERSCAN.FIT.ORDER    S32    3
-BIAS.OVERSCAN.FIT.NBIN     S32    5
Index: /trunk/PS-IPP-Metadata-Config/t/03_metadata.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/03_metadata.t	(revision 3478)
+++ /trunk/PS-IPP-Metadata-Config/t/03_metadata.t	(revision 3478)
@@ -0,0 +1,144 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 03_metadata.t,v 1.1 2005-03-23 01:53:55 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 5;
+use PS::IPP::Metadata::Config;
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+my $example = q{
+CELL      METADATA
+ EXTNAME   STR   CCD00
+ BIASSEC   STR   BSEC-00
+ CHIP      STR   CHIP.00
+ NCELL     S32   24
+END
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "SDRS example");
+}
+
+{
+my $example = q{
+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
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "nested metadata");
+}
+
+{
+my $example = q{
+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
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "deeply nested metadata");
+}
+
+{
+my $example = q{
+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
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "deeply nested metadata");
+}
+
+{
+my $example = q{
+FOO1 METADATA
+    FOO2 METADATA
+        BAR     STR BAZ
+        PING    STR PONG
+    END
+    FOO3 METADATA
+        BAR     STR BAZ
+        PING    STR PONG
+    END
+END
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "two metadata at the same depth");
+}
Index: unk/PS-IPP-Metadata-Config/t/04_sdrs_metadata_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/04_sdrs_metadata_example.t	(revision 3477)
+++ 	(revision )
@@ -1,30 +1,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2005  Joshua Hoblitt
-#
-# $Id: 04_sdrs_metadata_example.t,v 1.1 2005-03-10 01:08:42 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/04_type.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/04_type.t	(revision 3478)
+++ /trunk/PS-IPP-Metadata-Config/t/04_type.t	(revision 3478)
@@ -0,0 +1,123 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 04_type.t,v 1.1 2005-03-23 01:53:55 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 9;
+use PS::IPP::Metadata::Config;
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+my $example = q{
+TYPE      CELL   EXTNAME   BIASSEC  CHIP
+CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+CELL.01   CELL   CCD01     BSEC-01  CHIP.00
+};
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "basic TYPE");
+}
+
+{
+my $example = q{
+TYPE      CELL   EXTNAME   BIASSEC  CHIP    # comment
+CELL.00   CELL   CCD00     BSEC-00  CHIP.00 # foo
+CELL.01   CELL   CCD01     BSEC-01  CHIP.00 #
+};
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "TYPE with comments");
+}
+
+{
+my $example = q{
+TYPE      CELL   EXTNAME   BIASSEC  CHIP
+CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+CELL.01   CELL   CCD01     BSEC-01  CHIP.00
+FOO METADATA
+    TYPE      CELL   EXTNAME   BIASSEC
+    CELL.00   CELL   CCD00     BSEC-00
+    CELL.01   CELL   CCD01     BSEC-01
+    FOO METADATA
+        TYPE      CELL   EXTNAME
+        CELL.00   CELL   CCD00
+        CELL.01   CELL   CCD01
+    END
+END
+};
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "TYPE not visible in lower scopes");
+}
+
+{
+my $example = q{
+TYPE      CELL   EXTNAME   BIASSEC  CHIP
+FOO METADATA
+    CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+END
+};
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "TYPE not in scope");
+}
+
+{
+my $example = q{
+FOO METADATA
+    TYPE      CELL   EXTNAME   BIASSEC  CHIP
+END
+CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+};
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "TYPE not in scope");
+}
+
+{
+my $example = q{
+FOO METADATA
+    TYPE      CELL   EXTNAME   BIASSEC  CHIP
+END
+BAR METADATA
+    CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+END
+};
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "TYPE not in scope");
+}
+
+
+{
+my $example = q{
+TYPE      CELL   EXTNAME   BIASSEC  CHIP
+CELL.00   CELL   CCD00     BSEC-00
+CELL.01   CELL   CCD01     BSEC-01  CHIP.00
+};
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "TYPE with missing parameters");
+}
+
+{
+my $example = q{
+TYPE      CELL   EXTNAME   BIASSEC  CHIP
+TYPE      CELL   EXTNAME   BIASSEC  CHIP
+CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+CELL.01   CELL   CCD01     BSEC-01  CHIP.00
+};
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "TYPE redefinition");
+}
+
+{
+my $example = q{
+CELL.00   CELL   CCD00     BSEC-00  CHIP.00
+CELL.01   CELL   CCD01     BSEC-01  CHIP.00
+};
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "missing TYPE declaration");
+}
Index: unk/PS-IPP-Metadata-Config/t/05_nested_metadata_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/05_nested_metadata_example.t	(revision 3477)
+++ 	(revision )
@@ -1,35 +1,0 @@
-#!/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: unk/PS-IPP-Metadata-Config/t/06_nested_metadata_example2.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/06_nested_metadata_example2.t	(revision 3477)
+++ 	(revision )
@@ -1,48 +1,0 @@
-#!/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: unk/PS-IPP-Metadata-Config/t/07_nested_metadata_example3.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/07_nested_metadata_example3.t	(revision 3477)
+++ 	(revision )
@@ -1,60 +1,0 @@
-#!/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: unk/PS-IPP-Metadata-Config/t/08_nested_metadata_example4.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/08_nested_metadata_example4.t	(revision 3477)
+++ 	(revision )
@@ -1,34 +1,0 @@
-#!/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
Index: unk/PS-IPP-Metadata-Config/t/09_sdrs_type_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/09_sdrs_type_example.t	(revision 3477)
+++ 	(revision )
@@ -1,67 +1,0 @@
-#!/usr/bin/perl
-
-# Copyright (C) 2005  Joshua Hoblitt
-#
-# $Id: 09_sdrs_type_example.t,v 1.2 2005-03-19 00:45:37 jhoblitt Exp $
-
-use strict;
-use warnings FATAL => qw( all );
-
-use lib qw( ./lib );
-
-#$::RD_TRACE = 1;
-
-use Test::More tests => 5;
-use PS::IPP::Metadata::Config;
-
-my $data = do { local $/; <DATA> };
-
-my @example = split( /%/, $data );
-
-my $config_parser = PS::IPP::Metadata::Config->new;
-
-{
-    my $pt = $config_parser->parse( shift @example );
-    ok( defined( $pt ), "valid parase tree");
-}
-
-{
-    my $pt = $config_parser->parse( shift @example );
-    ok( defined( $pt ), "valid parase tree");
-}
-
-eval {
-    my $pt = $config_parser->parse( shift @example );
-};
-like( $@, qr/does not have enough fields/, "missing fields");
-
-eval {
-    my $pt = $config_parser->parse( shift @example );
-};
-like( $@, qr/refinition of TYPE/, "TYPE redefinition");
-
-eval {
-    my $pt = $config_parser->parse( shift @example );
-};
-like( $@, qr/missing TYPE defintion/, "missing TYPE defnition");
-
-__DATA__
-TYPE      CELL   EXTNAME   BIASSEC  CHIP
-CELL.00   CELL   CCD00     BSEC-00  CHIP.00
-CELL.01   CELL   CCD01     BSEC-01  CHIP.00
-%
-TYPE      CELL   EXTNAME   BIASSEC  CHIP    # comment
-CELL.00   CELL   CCD00     BSEC-00  CHIP.00 # foo
-CELL.01   CELL   CCD01     BSEC-01  CHIP.00 #
-%
-TYPE      CELL   EXTNAME   BIASSEC  CHIP
-CELL.00   CELL   CCD00     BSEC-00
-CELL.01   CELL   CCD01     BSEC-01  CHIP.00
-%
-TYPE      CELL   EXTNAME   BIASSEC  CHIP
-TYPE      CELL   EXTNAME   BIASSEC  CHIP
-CELL.00   CELL   CCD00     BSEC-00  CHIP.00
-CELL.01   CELL   CCD01     BSEC-01  CHIP.00
-%
-CELL.00   CELL   CCD00     BSEC-00  CHIP.00
-CELL.01   CELL   CCD01     BSEC-01  CHIP.00