From 14d088783cf5523aac1134e24a3f614fa8eb1d2f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sat, 20 Mar 1999 04:14:46 +0100
Subject: [PATCH] Added some tests on upper_case() and lower_case().
Rev: src/testsuite.in:1.161
---
src/testsuite.in | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index a7918a86cb..ed36ed0039 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.160 1999/03/19 11:43:35 hubbe Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.161 1999/03/20 03:14:46 grubba Exp $"]])
cond([[all_constants()->_verify_internals]],
[[
test_do(_verify_internals())
@@ -2593,6 +2593,13 @@ test_equal(Array.longest_ordered_sequence("dfgaok
test_equal(lower_case("foo"),"foo")
test_equal(lower_case("Foo"),"foo")
test_equal(lower_case("Foo1234-*~\n"),"foo1234-*~\n")
+test_equal(lower_case("foo\x3000"),"foo\x3000")
+test_equal(lower_case("Foo\x3000"),"foo\x3000")
+test_equal(lower_case("Foo1234-*~\n\x3000"),"foo1234-*~\n\x3000")
+test_equal(lower_case("foo\x13000"),"foo\x13000")
+test_equal(lower_case("Foo\x13000"),"foo\x13000")
+test_equal(lower_case("Foo1234-*~\n\x13000"),"foo1234-*~\n\x13000")
+test_equal(lower_case("Foo\x178"),"foo�")
// - next_object
test_true(objectp(next_object()))
@@ -2902,6 +2909,13 @@ test_eq(trace(0),0)
test_equal(upper_case("fooq"),"FOOQ")
test_equal(upper_case("FooR"),"FOOR")
test_equal(upper_case("Foo1234-*~\n"),"FOO1234-*~\n")
+test_equal(upper_case("fooq\x3000"),"FOOQ\x3000")
+test_equal(upper_case("FooR\x3000"),"FOOR\x3000")
+test_equal(upper_case("Foo1234-*~\n\x3000"),"FOO1234-*~\n\x3000")
+test_equal(upper_case("fooq\x13000"),"FOOQ\x13000")
+test_equal(upper_case("FooR\x13000"),"FOOR\x13000")
+test_equal(upper_case("Foo1234-*~\n\x13000"),"FOO1234-*~\n\x13000")
+test_equal(upper_case("Foo�"),"FOO\x178")
// - values
test_equal(values("foo"),({'f','o','o'}))
--
GitLab