From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 16 May 2001 19:58:29 +0000 (+0000)
Subject: I think this is quite enough testing for a deprecated feature.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=532e0e8e5050ac4d94137112aa8d8c5283cba92b;p=p5sagit%2Fp5-mst-13.2.git

I think this is quite enough testing for a deprecated feature.

p4raw-id: //depot/perl@10140
---

diff --git a/MANIFEST b/MANIFEST
index 52e4367..e6c5179 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1535,6 +1535,7 @@ t/lib/h2ph.h		Test header file for h2ph
 t/lib/h2ph.pht		Generated output from h2ph.h by h2ph, for comparison
 t/lib/h2ph.t		See if h2ph works like it should
 t/lib/hostname.t	See if Sys::Hostname works
+t/lib/i18n-collate.t	See if I18N::Collate works
 t/lib/io_const.t	See if constants from IO work
 t/lib/io_dir.t		See if directory-related methods from IO work
 t/lib/io_dup.t		See if dup()-related methods from IO work
diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 75801bb..f1196f4 100644
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -158,6 +158,7 @@ FindBin
 GDBM_File
 Getopt::Long
 Getopt::Std
+I18N:Collate
 IO::Dir
 IO::File
 IO::Handle
diff --git a/t/lib/i18n-collate.t b/t/lib/i18n-collate.t
new file mode 100644
index 0000000..bf3ba20
--- /dev/null
+++ b/t/lib/i18n-collate.t
@@ -0,0 +1,44 @@
+#!./perl
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require Config; import Config;
+    if (!$Config{d_setlocale} || $Config{ccflags} =~ /\bD?NO_LOCALE\b/) {
+	print "1..0\n";
+	exit;
+    }
+}
+
+print "1..7\n";
+
+use I18N::Collate;
+
+print "ok 1\n";
+
+$a = I18N::Collate->new("foo");
+
+print "ok 2\n";
+
+{
+    use warnings;
+    local $SIG{__WARN__} = sub { $@ = $_[0] };
+    $b = I18N::Collate->new("foo");
+    print "not " unless $@ =~ /\bHAS BEEN DEPRECATED\b/;
+    print "ok 3\n";
+    $@ = '';
+}
+
+print "not " unless $a eq $b;
+print "ok 4\n";
+
+$b = I18N::Collate->new("bar");
+print "not " if $@ =~ /\bHAS BEEN DEPRECATED\b/;
+print "ok 5\n";
+
+print "not " if $a eq $b;
+print "ok 6\n";
+
+print "not " if $a lt $b == $a gt $b;
+print "ok 7\n";
+