Index: /trunk/PS-IPP-Metadata-Config/t/09_sdrs_type_example.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/09_sdrs_type_example.t	(revision 3421)
+++ /trunk/PS-IPP-Metadata-Config/t/09_sdrs_type_example.t	(revision 3421)
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 09_sdrs_type_example.t,v 1.1 2005-03-15 04:41:44 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 $data = do { local $/; <DATA> };
+
+my @example = split( /%/, $data );
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+    my $pt = $config_parser->parse( $example[0] );
+    ok( defined( $pt ), "valid parase tree");
+}
+
+eval {
+    my $pt = $config_parser->parse( $example[1] );
+};
+like( $@, qr/refinition of TYPE/, "TYPE redefinition");
+
+eval {
+    my $pt = $config_parser->parse( $example[2] );
+};
+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
+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