Index: /trunk/PS-IPP-Metadata-Config/t/05_time.t
===================================================================
--- /trunk/PS-IPP-Metadata-Config/t/05_time.t	(revision 3479)
+++ /trunk/PS-IPP-Metadata-Config/t/05_time.t	(revision 3479)
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2005  Joshua Hoblitt
+#
+# $Id: 05_time.t,v 1.1 2005-03-23 01:55:21 jhoblitt Exp $
+
+use strict;
+use warnings FATAL => qw( all );
+
+use lib qw( ./lib );
+
+#$::RD_TRACE = 1;
+
+use Test::More tests => 8;
+use PS::IPP::Metadata::Config;
+
+my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+my $example =<<END;
+recently    UTC     2005-03-18T16:05:00Z
+recently    UT1     2005-03-18T16:05:00Z
+recently    TAI     2005-03-18T16:05:00Z
+recently    TT      2005-03-18T16:05:00Z
+END
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "basic IS8601");
+}
+
+{
+my $example =<<END;
+recently    UTC     2005-03-18T16:05:00Z    # foo
+recently    UT1     2005-03-18T16:05:00Z    # bar
+recently    TAI     2005-03-18T16:05:00Z    # baz
+recently    TT      2005-03-18T16:05:00Z    #
+END
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "ISO8601 with comments");
+}
+
+{
+my $example =<<END;
+recently    UTC     123456, 5000, 1
+recently    UT1     123456, 5000
+recently    TAI     123456, 5000
+recently    TT      123456, 5000
+END
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "basic epoch time");
+}
+
+{
+my $example =<<END;
+recently    UTC     123456, 5000, 1         # foo
+recently    UT1     123456, 5000            # bar
+recently    TAI     123456, 5000            # baz
+recently    TT      123456, 5000            #
+END
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "epoch time with comments");
+}
+
+{
+my $example =<<END;
+broken      UTC     2005-03-18T16:05:00
+END
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "parse error");
+}
+
+{
+my $example =<<END;
+broken      UT1     2005-03-18T16:05:00
+END
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "parse error");
+}
+
+{
+my $example =<<END;
+broken      TAI     2005-03-18T16:05:00
+END
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "parse error");
+}
+
+{
+my $example =<<END;
+broken      TT      2005-03-18T16:05:00
+END
+    my $config = $config_parser->parse( $example );
+    ok( !defined( $config ), "parse error");
+}