X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Flibhtml-calendarmonth-perl.git;a=blobdiff_plain;f=current%2Ft%2F20_i8n.t;h=d01979208ebd7c6c1e5950ec95fe36dbede29131;hp=e59361fcf6db2c898e91cd8c423871fe7612c859;hb=9d8d5103edda5befbcae635c8a6edebe7431e094;hpb=8271142675d51730e1a96d3d184ed49069c2a68c diff --git a/current/t/20_i8n.t b/current/t/20_i8n.t index e59361f..d019792 100755 --- a/current/t/20_i8n.t +++ b/current/t/20_i8n.t @@ -1,29 +1,33 @@ #!/usr/bin/perl use strict; +use FindBin; +use lib $FindBin::RealBin; + +use testload; use Test::More tests => 2; use HTML::CalendarMonth; use HTML::CalendarMonth::Locale; -my $basque; +my $zulu; eval do { local $/; }; die "Oops on eval: $@\n" if $@; +$zulu = dq_nums($zulu); -# i8n (use basque as example) +# i8n (use zulu as example) my @stoof = HTML::CalendarMonth::Locale->locales; ok(@stoof > 20, 'i8n: locale ids retreived'); -my($year, $month) = (2000, 12); +my($year, $month) = (2008, 3); my $b = HTML::CalendarMonth->new( year => $year, month => $month, - head_week => 1, - locale => 'eu', + locale => 'zu', ); -my $bstr = $b->as_HTML; +my $bstr = dq_nums($b->as_HTML); chomp($bstr); -cmp_ok($bstr, 'eq', $basque, "i8n: ($year/$month : Basque) using auto-detect"); +cmp_ok($bstr, 'eq', $zulu, "i8n: ($year/$month : Zulu) using auto-detect"); __DATA__ -$basque = '
abendua2000
igalasazogorlr 
          1248
345678949
1011121314151650
1718192021222351
2425262728293052
31            1
'; +$zulu = '
Mashi2008
SonMsoBilThaSinHlaMgq
            1
2345678
9101112131415
16171819202122
23242526272829
3031         
'