diff options
author | Sehong Na <sehong.na@samsung.com> | 2014-05-31 12:57:52 +0900 |
---|---|---|
committer | Sehong Na <sehong.na@samsung.com> | 2014-05-31 12:57:52 +0900 |
commit | ff924a5451382eafb2d54f4796a9aad1579f4407 (patch) | |
tree | 956a3459a231051dbc6437d964a71e87bb21d5ac /t/format.t | |
download | perl-TimeDate-138fbe891817a8bd461562a261190c5ca72ea7d5.tar.gz perl-TimeDate-138fbe891817a8bd461562a261190c5ca72ea7d5.tar.bz2 perl-TimeDate-138fbe891817a8bd461562a261190c5ca72ea7d5.zip |
Initialize Tizen 2.3tizen_2.3_releasesubmit/tizen_2.3/20150202.104519submit/tizen_2.3/20140531.1046402.3a_releasetizen_2.3
Diffstat (limited to 't/format.t')
-rw-r--r-- | t/format.t | 184 |
1 files changed, 184 insertions, 0 deletions
diff --git a/t/format.t b/t/format.t new file mode 100644 index 0000000..15765c2 --- /dev/null +++ b/t/format.t @@ -0,0 +1,184 @@ + +use Date::Format qw(ctime time2str); +use Date::Language; + +print "1..152\n"; + +my $i = 1; + +$pkg = 'Date::Format::Generic'; + +while(<DATA>) { + chomp; + if (/^(\d+)/) { + $t = $1; + next; + } + elsif (/^(\w+)/) { + $pkg = Date::Language->new($1); + next; + } + + my($fmt,$res) = split(/\t+/,$_); + my $str = $pkg->time2str($fmt,$t,'GMT'); + print "# '$fmt'$res'$str'\nnot " unless $str eq $res; + print "ok ",$i++,"\n"; +} + +__DATA__ +936709362 # Tue Sep 7 11:22:42 1999 GMT +%y 99 +%Y 1999 +%% % +%a Tue +%A Tuesday +%b Sep +%B September +%c 09/07/99 13:02:42 +%C Tue Sep 7 13:02:42 GMT 1999 +%d 07 +%e 7 +%D 09/07/99 +%G 1026 +%h Sep +%H 13 +%I 01 +%j 250 +%k 13 +%l 1 +%L 9 +%m 09 +%M 02 +%o 7th +%p PM +%q 3 +%r 01:02:42 PM +%R 13:02 +%s 936709362 +%S 42 +%T 13:02:42 +%U 36 +%w 2 +%W 36 +%x 09/07/99 +%X 13:02:42 +%y 99 +%Y 1999 +%Z GMT +%z +0000 +%Od VII +%Oe VII +%OH XIII +%OI I +%Oj CCL +%Ok XIII +%Ol I +%Om IX +%OM II +%Oq III +%OY MCMXCIX +%Oy XCIX +German +%y 99 +%Y 1999 +%% % +%a Die +%A Dienstag +%b Sep +%B September +%c 09/07/99 13:02:42 +%C Die Sep 7 13:02:42 GMT 1999 +%d 07 +%e 7 +%D 09/07/99 +%h Sep +%H 13 +%I 01 +%j 250 +%k 13 +%l 1 +%L 9 +%m 09 +%M 02 +%o 7. +%p PM +%q 3 +%r 01:02:42 PM +%R 13:02 +%s 936709362 +%S 42 +%T 13:02:42 +%U 36 +%w 2 +%W 36 +%x 09/07/99 +%X 13:02:42 +%y 99 +%Y 1999 +%Z GMT +%z +0000 +%Od VII +%Oe VII +%OH XIII +%OI I +%Oj CCL +%Ok XIII +%Ol I +%Om IX +%OM II +%Oq III +%OY MCMXCIX +%Oy XCIX +Italian +%y 99 +%Y 1999 +%% % +%a Mar +%A Martedi +%b Set +%B Settembre +%c 09/07/99 13:02:42 +%C Mar Set 7 13:02:42 GMT 1999 +%d 07 +%e 7 +%D 09/07/99 +%h Set +%H 13 +%I 01 +%j 250 +%k 13 +%l 1 +%L 9 +%m 09 +%M 02 +%o 7th +%p PM +%q 3 +%r 01:02:42 PM +%R 13:02 +%s 936709362 +%S 42 +%T 13:02:42 +%U 36 +%w 2 +%W 36 +%x 09/07/99 +%X 13:02:42 +%y 99 +%Y 1999 +%Z GMT +%z +0000 +%Od VII +%Oe VII +%OH XIII +%OI I +%Oj CCL +%Ok XIII +%Ol I +%Om IX +%OM II +%Oq III +%OY MCMXCIX +%Oy XCIX +316051200 # Mon Jan 7 00:00:00 1980 GMT +%G 0 |