1 files changed, 26 insertions, 0 deletions
diff --git a/t/op/lc_user.t b/t/op/lc_user.t
new file mode 100644
index 0000000000..276e2f2a02
--- /dev/null
+++ b/t/op/lc_user.t
@@ -0,0 +1,26 @@
+BEGIN {
+    chdir 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+plan tests => 4;
+
+sub ToUpper {
+    return <<END;
+0061	0063	0041
+END
+}
+
+is("\Ufoo\x{101}", "foo\x{101}", "no changes on 'foo'");
+is("\Ubar\x{101}", "BAr\x{101}", "changing 'ab' on 'bar' ");
+
+sub ToLower {
+    return <<END;
+0041		0061
+END
+}
+
+is("\LFOO\x{100}", "FOO\x{100}", "no changes on 'FOO'");
+is("\LBAR\x{100}", "BaR\x{100}", "changing 'A' on 'BAR' ");
+