Changeset 8940

Timestamp:

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

Author:

jhoblitt

Message:

add fractional second support to the ISO8601 format

Location:

trunk/PS-IPP-Metadata-Config

Files:

• config_grammar.txt (modified) (2 diffs)
• t/05_time.t (modified) (4 diffs)

trunk/PS-IPP-Metadata-Config/config_grammar.txt

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: config_grammar.txt,v 1.2 2006-09-23 00:26:50 jhoblitt Exp $
+# $Id: config_grammar.txt,v 1.3 2006-09-25 21:49:42 jhoblitt Exp $
 
 {
@@ -348 +348 @@
 iso8601:
     # based on code from DateTime::Format::ISO8601
-    / (\d{4}) - (\d\d) - (\d\d) T (\d\d) : (\d\d) : (\d\d) Z /x
+    / \d{4} -?? \d\d -?? \d\d T?? \d\d :?? \d\d :?? \d\d (?:[\.,] (\d+))? Z/x
         { DateTime::Format::ISO8601->parse_datetime( $item[1] ) }
 

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");
 }