1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!perl -w
BEGIN { eval { require bytes; }; }
use strict;
no strict "vars";
use Date::Pcalc::Object qw(:all);
# ======================================================================
# $lang = Date::Pcalc->language([LANG]);
# $lang = $date->language([LANG]);
# ======================================================================
print "1..9\n";
$n = 1;
$date = Date::Pcalc->new();
$lang = Date::Pcalc->language();
if ($lang eq 'English')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = Date::Pcalc->language("fr");
if ($lang eq 'English')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = Date::Pcalc->language();
if ($lang eq 'Franais')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = $date->language();
unless (defined $lang)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = $date->language("SV");
unless (defined $lang)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = $date->language();
if ($lang eq 'Svenska')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = $date->language(3);
if ($lang eq 'Svenska')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$lang = $date->language();
if ($lang eq 'Deutsch')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$date->[0][3] = 0;
eval { $lang = $date->language(); };
if ($@ =~ /\bDate::Pcalc::language\(\): language not available\b/)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
__END__
|
