use strict;
use warnings;
use utf8;
use Test::More;
BEGIN
{
if ( $] <= 5.008 )
{
plan skip_all => 'These tests require Perl 5.8.0+';
}
else
{
plan tests => 4;
}
}
use DateTimeX::Lite::Locale;
my $loc = DateTimeX::Lite::Locale->load('zh_Hans_SG');
is( $loc->script, 'Simplified Han', 'check script' );
is( $loc->native_script, '简体中文', 'check native_script' );
is( $loc->script_id, 'Hans', 'check script_id' );
is( $loc->territory_id, 'SG', 'check territory_id' );