Changeset 8940 for trunk/PS-IPP-Metadata-Config/t/05_time.t

Timestamp:

Sep 25, 2006, 11:49:42 AM (20 years ago)

Author:

jhoblitt

Message:

add fractional second support to the ISO8601 format

File:

• trunk/PS-IPP-Metadata-Config/t/05_time.t (modified) (4 diffs)

trunk/PS-IPP-Metadata-Config/t/05_time.t

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 05_time.t,v 1.2 2005-04-05 00:16:41 jhoblitt Exp $
+# $Id: 05_time.t,v 1.3 2006-09-25 21:49:42 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 use PS::IPP::Metadata::Config;
 
@@ -30 +30 @@
 {
 my $example =<<END;
+recently    UTC     2005-03-18T16:05:00.000001Z
+recently    UT1     2005-03-18T16:05:00.000001Z
+recently    TAI     2005-03-18T16:05:00.000001Z
+recently    TT      2005-03-18T16:05:00.000001Z
+END
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "basic IS8601 with fractional seconds");
+}
+
+{
+my $example =<<END;
 recently    UTC     2005-03-18T16:05:00Z    # foo
 recently    UT1     2005-03-18T16:05:00Z    # bar
@@ -37 +48 @@
     my $config = $config_parser->parse( $example );
     ok( defined( $config ), "ISO8601 with comments");
+}
+
+{
+my $example =<<END;
+recently    UTC     2005-03-18T16:05:00.000001Z    # foo
+recently    UT1     2005-03-18T16:05:00.000001Z    # bar
+recently    TAI     2005-03-18T16:05:00.000001Z    # baz
+recently    TT      2005-03-18T16:05:00.000001Z    #
+END
+    my $config = $config_parser->parse( $example );
+    ok( defined( $config ), "ISO8601 with comments and fractional seconds");
 }