1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require Config; import Config; 7 if (!$Config{d_setlocale} || $Config{ccflags} =~ /\bD?NO_LOCALE\b/) { 8 print "1..0\n"; 9 exit; 10 } 11} 12 13print "1..7\n"; 14 15use I18N::Collate; 16 17print "ok 1\n"; 18 19$a = I18N::Collate->new("foo"); 20 21print "ok 2\n"; 22 23{ 24 use warnings; 25 local $SIG{__WARN__} = sub { $@ = $_[0] }; 26 $b = I18N::Collate->new("foo"); 27 print "not " unless $@ =~ /\bHAS BEEN DEPRECATED\b/; 28 print "ok 3\n"; 29 $@ = ''; 30} 31 32print "not " unless $a eq $b; 33print "ok 4\n"; 34 35$b = I18N::Collate->new("bar"); 36print "not " if $@ =~ /\bHAS BEEN DEPRECATED\b/; 37print "ok 5\n"; 38 39print "not " if $a eq $b; 40print "ok 6\n"; 41 42print "not " if $a lt $b == $a gt $b; 43print "ok 7\n"; 44 45