1#!/usr/local/bin/perl -w 2 3use Date::Language; 4 5 6my $time = time; 7my $v; 8 9my @lang = qw(English German Italian); 10 11print "1..", scalar(@lang),"\n"; 12 13my $loop = 1; 14my $lang; 15 16foreach $lang (@lang) 17{ 18 my $l = Date::Language->new($lang); 19 $v = $l->str2time($l->ctime($time)); 20 21 print $v == $time ? "ok $loop\n" : "FAIL $loop\n"; 22 $loop++; 23} 24 25