#!/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 $zulu; eval do { local $/; }; die "Oops on eval: $@\n" if $@; $zulu = dq_nums($zulu); # i8n (use zulu as example) my @stoof = HTML::CalendarMonth::Locale->locales; ok(@stoof > 20, 'i8n: locale ids retreived'); my($year, $month) = (2008, 3); my $b = HTML::CalendarMonth->new( year => $year, month => $month, locale => 'zu', ); my $bstr = dq_nums($b->as_HTML); chomp($bstr); cmp_ok($bstr, 'eq', $zulu, "i8n: ($year/$month : Zulu) using auto-detect"); __DATA__ $zulu = '

Mashi					2008
Son	Mso	Bil	Tha	Sin	Hla	Mgq
						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