Changeset 3841

Timestamp:

May 4, 2005, 12:05:24 PM (21 years ago)

Author:

jhoblitt

Message:

add comment test

File:

• trunk/PS-IPP-Metadata-Config/t/03_metadata.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.2 2005-03-23 22:07:49 jhoblitt Exp $
+# $Id: 03_metadata.t,v 1.3 2005-05-04 22:05:24 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 use PS::IPP::Metadata::Config;
 
@@ -29 +29 @@
 
     ok( defined( $config ), "SDRS example");
+}
+
+{
+my $example = q{
+CELL      METADATA          # foo
+ EXTNAME   STR   CCD00      # bar
+ BIASSEC   STR   BSEC-00    # baz 
+ CHIP      STR   CHIP.00    # zab
+ NCELL     S32   24         # rab
+END                         # oof
+};
+    my $config = $config_parser->parse( $example );
+
+    ok( defined( $config ), "SDRS example + comments");
 }