use Psh::Locale;
print "1..2\n";
while (<DATA>) {
eval ($_);
print "$@\n" if $@;
}
&Psh::Locale::load_locale();
if ( Psh::Locale::months() == 12) {
print "month count ok\n";
print "ok 1\n";
} else {
print "month count not ok\n";
print "not ok 1\n";
}
if ( Psh::Locale::weekdays() == 7) {
print "day of week count ok\n";
print "ok 2\n";
} else {
print "day of week count not ok\n";
print "not ok 2\n";
}
__DATA__
use Psh::Locale::Default;
use Psh::Locale::French;
use Psh::Locale::German;
use Psh::Locale::Italian;
use Psh::Locale::Portuguese;
use Psh::Locale::Spanish;