1use strict; 2use warnings; 3use utf8; 4 5use Test::More; 6 7BEGIN { 8 if ( $] <= 5.008 ) { 9 plan skip_all => 'These tests require Perl 5.8.0+'; 10 } 11 else { 12 plan tests => 4; 13 } 14} 15 16use DateTime::Locale; 17 18my $loc = DateTime::Locale->load('zh_Hans_SG'); 19 20is( $loc->script, 'Simplified Han', 'check script' ); 21is( $loc->native_script, '简体中文', 'check native_script' ); 22is( $loc->script_id, 'Hans', 'check script_id' ); 23 24is( $loc->territory_id, 'SG', 'check territory_id' ); 25