6 require Config; import Config;
7 if (!$Config{d_setlocale} || $Config{ccflags} =~ /\bD?NO_LOCALE\b/) {
19 $a = I18N::Collate->new("foo");
25 local $SIG{__WARN__} = sub { $@ = $_[0] };
26 $b = I18N::Collate->new("foo");
27 print "not " unless $@ =~ /\bHAS BEEN DEPRECATED\b/;
32 print "not " unless $a eq $b;
35 $b = I18N::Collate->new("bar");
36 print "not " if $@ =~ /\bHAS BEEN DEPRECATED\b/;
39 print "not " if $a eq $b;
42 print "not " if $a lt $b == $a gt $b;