t/20_i8n.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FindBin;
   5 use lib $FindBin::RealBin;
   6
   7 use testload;
   8
   9 my $test_count;
  10 BEGIN { $test_count = i8n_count() + 1 }
  11
  12 use Test::More tests => $test_count;
  13
  14 use HTML::CalendarMonth::Locale;
  15
  16 my @stoof = HTML::CalendarMonth::Locale->locales;
  17 ok(@stoof > 20, 'i8n: ' . scalar @stoof . ' locale ids retreived');
  18 check_i8n();