From e49298ea32513e37f1e773b8b86f6ee02bf9d1ac Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 19 Feb 2002 03:49:34 +0000
Subject: Add back the new casing tests.

p4raw-id: //depot/perl@14761
---
 t/uni/lower.t | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 t/uni/lower.t

(limited to 't/uni/lower.t')

diff --git a/t/uni/lower.t b/t/uni/lower.t
new file mode 100644
index 0000000000..4420d0b165
--- /dev/null
+++ b/t/uni/lower.t
@@ -0,0 +1,8 @@
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(../lib uni .);
+    require "case.pl";
+}
+
+casetest("Lower", \%utf8::ToSpecLower, sub { lc $_[0] });
+
-- 
cgit v1.2.1