Changeset 10147 for trunk/PS-IPP-Metadata-Config/t/05_time.t
- Timestamp:
- Nov 22, 2006, 1:54:50 PM (20 years ago)
- File:
-
- 1 edited
-
trunk/PS-IPP-Metadata-Config/t/05_time.t (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/PS-IPP-Metadata-Config/t/05_time.t
r9758 r10147 3 3 # Copyright (C) 2005 Joshua Hoblitt 4 4 # 5 # $Id: 05_time.t,v 1. 4 2006-10-27 02:15:45jhoblitt Exp $5 # $Id: 05_time.t,v 1.5 2006-11-22 23:54:50 jhoblitt Exp $ 6 6 7 7 use strict; … … 12 12 #$::RD_TRACE = 1; 13 13 14 use Test::More tests => 1 7;14 use Test::More tests => 15; 15 15 use PS::IPP::Metadata::Config; 16 16 … … 32 32 { 33 33 name => 'mytime', 34 class => ' time',35 type => 'UTC', 36 value => undef, 37 }, 38 { 39 name => 'mytime', 40 class => ' time',41 type => 'UT1', 42 value => undef, 43 }, 44 { 45 name => 'mytime', 46 class => ' time',47 type => 'TAI', 48 value => undef, 49 }, 50 { 51 name => 'mytime', 52 class => ' time',34 class => 'scalar', 35 type => 'UTC', 36 value => undef, 37 }, 38 { 39 name => 'mytime', 40 class => 'scalar', 41 type => 'UT1', 42 value => undef, 43 }, 44 { 45 name => 'mytime', 46 class => 'scalar', 47 type => 'TAI', 48 value => undef, 49 }, 50 { 51 name => 'mytime', 52 class => 'scalar', 53 53 type => 'TT', 54 54 value => undef, … … 74 74 { 75 75 name => 'mytime', 76 class => ' time',77 type => 'UTC', 78 value => undef, 79 comment => 'comment', 80 }, 81 { 82 name => 'mytime', 83 class => ' time',84 type => 'UT1', 85 value => undef, 86 comment => 'comment', 87 }, 88 { 89 name => 'mytime', 90 class => ' time',91 type => 'TAI', 92 value => undef, 93 comment => 'comment', 94 }, 95 { 96 name => 'mytime', 97 class => ' time',76 class => 'scalar', 77 type => 'UTC', 78 value => undef, 79 comment => 'comment', 80 }, 81 { 82 name => 'mytime', 83 class => 'scalar', 84 type => 'UT1', 85 value => undef, 86 comment => 'comment', 87 }, 88 { 89 name => 'mytime', 90 class => 'scalar', 91 type => 'TAI', 92 value => undef, 93 comment => 'comment', 94 }, 95 { 96 name => 'mytime', 97 class => 'scalar', 98 98 type => 'TT', 99 99 value => undef, … … 120 120 { 121 121 name => 'recently', 122 class => ' time',123 type => 'UTC', 124 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 125 }, 126 { 127 name => 'recently', 128 class => ' time',129 type => 'UT1', 130 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 131 }, 132 { 133 name => 'recently', 134 class => ' time',135 type => 'TAI', 136 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 137 }, 138 { 139 name => 'recently', 140 class => ' time',122 class => 'scalar', 123 type => 'UTC', 124 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 125 }, 126 { 127 name => 'recently', 128 class => 'scalar', 129 type => 'UT1', 130 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 131 }, 132 { 133 name => 'recently', 134 class => 'scalar', 135 type => 'TAI', 136 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 137 }, 138 { 139 name => 'recently', 140 class => 'scalar', 141 141 type => 'TT', 142 142 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), … … 162 162 { 163 163 name => 'recently', 164 class => ' time',165 type => 'UTC', 166 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 167 }, 168 { 169 name => 'recently', 170 class => ' time',171 type => 'UT1', 172 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 173 }, 174 { 175 name => 'recently', 176 class => ' time',177 type => 'TAI', 178 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 179 }, 180 { 181 name => 'recently', 182 class => ' time',164 class => 'scalar', 165 type => 'UTC', 166 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 167 }, 168 { 169 name => 'recently', 170 class => 'scalar', 171 type => 'UT1', 172 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 173 }, 174 { 175 name => 'recently', 176 class => 'scalar', 177 type => 'TAI', 178 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), 179 }, 180 { 181 name => 'recently', 182 class => 'scalar', 183 183 type => 'TT', 184 184 value => DateTime::Format::ISO8601->parse_datetime("2005-03-18T16:05:00Z"), … … 225 225 } 226 226 227 diag("epoch time format maybe deprecated");228 229 {230 my $example =<<END;231 recently MULTI232 recently UTC 123456, 5000, 1233 recently UT1 123456, 5000234 recently TAI 123456, 5000235 recently TT 123456, 5000236 END237 my $config = $config_parser->parse( $example );238 ok( defined( $config ), "basic epoch time parsed");239 }240 241 {242 my $example =<<END;243 recently MULTI244 recently UTC 123456, 5000, 1 # foo245 recently UT1 123456, 5000 # bar246 recently TAI 123456, 5000 # baz247 recently TT 123456, 5000 #248 END249 my $config = $config_parser->parse( $example );250 ok( defined( $config ), "epoch time with comments parsed");251 }227 #diag("epoch time format maybe deprecated"); 228 # 229 #{ 230 #my $example =<<END; 231 #recently MULTI 232 #recently UTC 123456, 5000, 1 233 #recently UT1 123456, 5000 234 #recently TAI 123456, 5000 235 #recently TT 123456, 5000 236 #END 237 # my $config = $config_parser->parse( $example ); 238 # ok( defined( $config ), "basic epoch time parsed"); 239 #} 240 # 241 #{ 242 #my $example =<<END; 243 #recently MULTI 244 #recently UTC 123456, 5000, 1 # foo 245 #recently UT1 123456, 5000 # bar 246 #recently TAI 123456, 5000 # baz 247 #recently TT 123456, 5000 # 248 #END 249 # my $config = $config_parser->parse( $example ); 250 # ok( defined( $config ), "epoch time with comments parsed"); 251 #} 252 252 253 253 {
Note:
See TracChangeset
for help on using the changeset viewer.
