X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=1.16%2Ft%2F20_i8n.t;fp=1.16%2Ft%2F20_i8n.t;h=0000000000000000000000000000000000000000;hb=ed44be48bb467d82127717d1ae2d11890aaf329b;hp=e59361fcf6db2c898e91cd8c423871fe7612c859;hpb=982e2bb08f00d800e2cd9fb65b108231719c8a65;p=deb_pkgs%2Flibhtml-calendarmonth-perl.git diff --git a/1.16/t/20_i8n.t b/1.16/t/20_i8n.t deleted file mode 100755 index e59361f..0000000 --- a/1.16/t/20_i8n.t +++ /dev/null @@ -1,29 +0,0 @@ -#!/usr/bin/perl - -use strict; - -use Test::More tests => 2; - -use HTML::CalendarMonth; -use HTML::CalendarMonth::Locale; - -my $basque; -eval do { local $/; }; -die "Oops on eval: $@\n" if $@; - -# i8n (use basque as example) -my @stoof = HTML::CalendarMonth::Locale->locales; -ok(@stoof > 20, 'i8n: locale ids retreived'); -my($year, $month) = (2000, 12); -my $b = HTML::CalendarMonth->new( - year => $year, - month => $month, - head_week => 1, - locale => 'eu', -); -my $bstr = $b->as_HTML; -chomp($bstr); -cmp_ok($bstr, 'eq', $basque, "i8n: ($year/$month : Basque) using auto-detect"); - -__DATA__ -$basque = '
abendua2000
igalasazogorlr 
          1248
345678949
1011121314151650
1718192021222351
2425262728293052
31            1
';