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