pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
1999-03-20
1999-03-20 16:24:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>
b4cb87a9fc38c6ef6706a3a0950699d8a0f23845 (
123
lines) (+
122
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Improved tests for upper_case() and lower_case() on wide strings.
Rev: src/testsuite.in:1.162
1:
-
stest_true([["$Id: testsuite.in,v 1.
161
1999/03/20
03
:
14
:
46
grubba Exp $"]])
+
stest_true([["$Id: testsuite.in,v 1.
162
1999/03/20
16
:
24
:
08
grubba Exp $"]])
cond([[all_constants()->_verify_internals]], [[ test_do(_verify_internals())
2600:
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ÿ")
+
test_equal(lower_case((string) ({
+
0x0000, 0x0041, 0x005b, 0x0061, 0x007b, 0x00c0, 0x00d7, 0x00d8,
+
0x00df, 0x00e0, 0x00f7, 0x00f8, 0x00ff, 0x0100, 0x0130, 0x0131,
+
0x0132, 0x0138, 0x0139, 0x0149, 0x014a, 0x0178, 0x0179, 0x017f,
+
0x0180, 0x0181, 0x0182, 0x0186, 0x0187, 0x0189, 0x018b, 0x018d,
+
0x018e, 0x018f, 0x0190, 0x0191, 0x0193, 0x0194, 0x0195, 0x0196,
+
0x0197, 0x0198, 0x019a, 0x019c, 0x019d, 0x019e, 0x019f, 0x01a0,
+
0x01a6, 0x01a7, 0x01a9, 0x01aa, 0x01ac, 0x01ae, 0x01af, 0x01b1,
+
0x01b3, 0x01b7, 0x01b8, 0x01ba, 0x01bc, 0x01be, 0x01c4, 0x01c5,
+
0x01c7, 0x01c8, 0x01ca, 0x01cb, 0x01dd, 0x01de, 0x01f0, 0x01f1,
+
0x01f2, 0x0250, 0x0253, 0x0254, 0x0255, 0x0256, 0x0258, 0x0259,
+
0x025a, 0x025b, 0x025c, 0x0260, 0x0261, 0x0263, 0x0264, 0x0268,
+
0x0269, 0x026a, 0x026f, 0x0270, 0x0272, 0x0273, 0x0275, 0x0276,
+
0x0280, 0x0281, 0x0283, 0x0284, 0x0288, 0x0289, 0x028a, 0x028c,
+
0x0292, 0x0293, 0x0386, 0x0387, 0x0388, 0x038c, 0x038e, 0x0390,
+
0x0391, 0x03a0, 0x03ac, 0x03ad, 0x03b0, 0x03b1, 0x03c0, 0x03c2,
+
0x03c3, 0x03cc, 0x03cd, 0x03d0, 0x03d1, 0x03d2, 0x03d5, 0x03d6,
+
0x03da, 0x03e2, 0x03f0, 0x03f1, 0x03f2, 0x03f3, 0x0401, 0x0410,
+
0x0420, 0x0430, 0x0440, 0x0451, 0x0460, 0x0482, 0x0490, 0x04c0,
+
0x04c1, 0x04d0, 0x0531, 0x0559, 0x0561, 0x0587, 0x10a0, 0x10d0,
+
0x1e00, 0x1e96, 0x1e9b, 0x1ea0, 0x1f00, 0x1f08, 0x1f10, 0x1f18,
+
0x1f20, 0x1f28, 0x1f30, 0x1f38, 0x1f40, 0x1f48, 0x1f50, 0x1f51,
+
0x1f52, 0x1f53, 0x1f54, 0x1f55, 0x1f56, 0x1f57, 0x1f59, 0x1f60,
+
0x1f68, 0x1f70, 0x1f72, 0x1f76, 0x1f78, 0x1f7a, 0x1f7c, 0x1f80,
+
0x1f88, 0x1f90, 0x1f98, 0x1fa0, 0x1fa8, 0x1fb0, 0x1fb2, 0x1fb3,
+
0x1fb4, 0x1fb8, 0x1fba, 0x1fbc, 0x1fbd, 0x1fc3, 0x1fc4, 0x1fc8,
+
0x1fcc, 0x1fcd, 0x1fd0, 0x1fd2, 0x1fd8, 0x1fda, 0x1fdd, 0x1fe0,
+
0x1fe2, 0x1fe5, 0x1fe6, 0x1fe8, 0x1fea, 0x1fec, 0x1fed, 0x1ff3,
+
0x1ff4, 0x1ff8, 0x1ffa, 0x1ffc, 0x1ffd, 0x2160, 0x2180, 0x24b6,
+
0x24d0, 0x24ea, 0xff21, 0xff3b, 0xff41, 0xff5b, })), (string) ({
+
0x0000, 0x0061, 0x005b, 0x0061, 0x007b, 0x00e0, 0x00d7, 0x00f8,
+
0x00df, 0x00e0, 0x00f7, 0x00f8, 0x00ff, 0x0101, 0x0069, 0x0131,
+
0x0133, 0x0138, 0x013a, 0x0149, 0x014b, 0x00ff, 0x017a, 0x017f,
+
0x0180, 0x0253, 0x0183, 0x0254, 0x0188, 0x0256, 0x018c, 0x018d,
+
0x01dd, 0x0259, 0x025b, 0x0192, 0x0260, 0x0263, 0x0195, 0x0269,
+
0x0268, 0x0199, 0x019a, 0x026f, 0x0272, 0x019e, 0x0275, 0x01a1,
+
0x0280, 0x01a8, 0x0283, 0x01aa, 0x01ad, 0x0288, 0x01b0, 0x028a,
+
0x01b4, 0x0292, 0x01b9, 0x01ba, 0x01bd, 0x01be, 0x01c6, 0x01c6,
+
0x01c9, 0x01c9, 0x01cc, 0x01cc, 0x01dd, 0x01df, 0x01f0, 0x01f3,
+
0x01f3, 0x0250, 0x0253, 0x0254, 0x0255, 0x0256, 0x0258, 0x0259,
+
0x025a, 0x025b, 0x025c, 0x0260, 0x0261, 0x0263, 0x0264, 0x0268,
+
0x0269, 0x026a, 0x026f, 0x0270, 0x0272, 0x0273, 0x0275, 0x0276,
+
0x0280, 0x0281, 0x0283, 0x0284, 0x0288, 0x0289, 0x028a, 0x028c,
+
0x0292, 0x0293, 0x03ac, 0x0387, 0x03ad, 0x03cc, 0x03cd, 0x0390,
+
0x03b1, 0x03c0, 0x03ac, 0x03ad, 0x03b0, 0x03b1, 0x03c0, 0x03c2,
+
0x03c3, 0x03cc, 0x03cd, 0x03d0, 0x03d1, 0x03d2, 0x03d5, 0x03d6,
+
0x03da, 0x03e3, 0x03f0, 0x03f1, 0x03f2, 0x03f3, 0x0451, 0x0430,
+
0x0440, 0x0430, 0x0440, 0x0451, 0x0461, 0x0482, 0x0491, 0x04c0,
+
0x04c2, 0x04d1, 0x0561, 0x0559, 0x0561, 0x0587, 0x10d0, 0x10d0,
+
0x1e01, 0x1e96, 0x1e9b, 0x1ea1, 0x1f00, 0x1f00, 0x1f10, 0x1f10,
+
0x1f20, 0x1f20, 0x1f30, 0x1f30, 0x1f40, 0x1f40, 0x1f50, 0x1f51,
+
0x1f52, 0x1f53, 0x1f54, 0x1f55, 0x1f56, 0x1f57, 0x1f51, 0x1f60,
+
0x1f60, 0x1f70, 0x1f72, 0x1f76, 0x1f78, 0x1f7a, 0x1f7c, 0x1f80,
+
0x1f80, 0x1f90, 0x1f90, 0x1fa0, 0x1fa0, 0x1fb0, 0x1fb2, 0x1fb3,
+
0x1fb4, 0x1fb0, 0x1f70, 0x1fb3, 0x1fbd, 0x1fc3, 0x1fc4, 0x1f72,
+
0x1fc3, 0x1fcd, 0x1fd0, 0x1fd2, 0x1fd0, 0x1f76, 0x1fdd, 0x1fe0,
+
0x1fe2, 0x1fe5, 0x1fe6, 0x1fe0, 0x1f7a, 0x1fe5, 0x1fed, 0x1ff3,
+
0x1ff4, 0x1f78, 0x1f7c, 0x1ff3, 0x1ffd, 0x2170, 0x2180, 0x24d0,
+
0x24d0, 0x24ea, 0xff41, 0xff3b, 0xff41, 0xff5b, }))
-
+
+
// - next_object test_true(objectp(next_object())) test_any(int e;object o=next_object(); for(e=0;e<1000 && o;e++) o=next_object(o); return o,0)
2916:
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")
+
test_equal(upper_case((string) ({
+
0x0000, 0x0041, 0x005b, 0x0061, 0x007b, 0x00c0, 0x00d7, 0x00d8,
+
0x00df, 0x00e0, 0x00f7, 0x00f8, 0x00ff, 0x0100, 0x0130, 0x0131,
+
0x0132, 0x0138, 0x0139, 0x0149, 0x014a, 0x0178, 0x0179, 0x017f,
+
0x0180, 0x0181, 0x0182, 0x0186, 0x0187, 0x0189, 0x018b, 0x018d,
+
0x018e, 0x018f, 0x0190, 0x0191, 0x0193, 0x0194, 0x0195, 0x0196,
+
0x0197, 0x0198, 0x019a, 0x019c, 0x019d, 0x019e, 0x019f, 0x01a0,
+
0x01a6, 0x01a7, 0x01a9, 0x01aa, 0x01ac, 0x01ae, 0x01af, 0x01b1,
+
0x01b3, 0x01b7, 0x01b8, 0x01ba, 0x01bc, 0x01be, 0x01c4, 0x01c5,
+
0x01c7, 0x01c8, 0x01ca, 0x01cb, 0x01dd, 0x01de, 0x01f0, 0x01f1,
+
0x01f2, 0x0250, 0x0253, 0x0254, 0x0255, 0x0256, 0x0258, 0x0259,
+
0x025a, 0x025b, 0x025c, 0x0260, 0x0261, 0x0263, 0x0264, 0x0268,
+
0x0269, 0x026a, 0x026f, 0x0270, 0x0272, 0x0273, 0x0275, 0x0276,
+
0x0280, 0x0281, 0x0283, 0x0284, 0x0288, 0x0289, 0x028a, 0x028c,
+
0x0292, 0x0293, 0x0386, 0x0387, 0x0388, 0x038c, 0x038e, 0x0390,
+
0x0391, 0x03a0, 0x03ac, 0x03ad, 0x03b0, 0x03b1, 0x03c0, 0x03c2,
+
0x03c3, 0x03cc, 0x03cd, 0x03d0, 0x03d1, 0x03d2, 0x03d5, 0x03d6,
+
0x03da, 0x03e2, 0x03f0, 0x03f1, 0x03f2, 0x03f3, 0x0401, 0x0410,
+
0x0420, 0x0430, 0x0440, 0x0451, 0x0460, 0x0482, 0x0490, 0x04c0,
+
0x04c1, 0x04d0, 0x0531, 0x0559, 0x0561, 0x0587, 0x10a0, 0x10d0,
+
0x1e00, 0x1e96, 0x1e9b, 0x1ea0, 0x1f00, 0x1f08, 0x1f10, 0x1f18,
+
0x1f20, 0x1f28, 0x1f30, 0x1f38, 0x1f40, 0x1f48, 0x1f50, 0x1f51,
+
0x1f52, 0x1f53, 0x1f54, 0x1f55, 0x1f56, 0x1f57, 0x1f59, 0x1f60,
+
0x1f68, 0x1f70, 0x1f72, 0x1f76, 0x1f78, 0x1f7a, 0x1f7c, 0x1f80,
+
0x1f88, 0x1f90, 0x1f98, 0x1fa0, 0x1fa8, 0x1fb0, 0x1fb2, 0x1fb3,
+
0x1fb4, 0x1fb8, 0x1fba, 0x1fbc, 0x1fbd, 0x1fc3, 0x1fc4, 0x1fc8,
+
0x1fcc, 0x1fcd, 0x1fd0, 0x1fd2, 0x1fd8, 0x1fda, 0x1fdd, 0x1fe0,
+
0x1fe2, 0x1fe5, 0x1fe6, 0x1fe8, 0x1fea, 0x1fec, 0x1fed, 0x1ff3,
+
0x1ff4, 0x1ff8, 0x1ffa, 0x1ffc, 0x1ffd, 0x2160, 0x2180, 0x24b6,
+
0x24d0, 0x24ea, 0xff21, 0xff3b, 0xff41, 0xff5b, })), (string) ({
+
0x0000, 0x0041, 0x005b, 0x0041, 0x007b, 0x00c0, 0x00d7, 0x00d8,
+
0x00df, 0x00c0, 0x00f7, 0x00d8, 0x0178, 0x0100, 0x0130, 0x0049,
+
0x0132, 0x0138, 0x0139, 0x0149, 0x014a, 0x0178, 0x0179, 0x0053,
+
0x0180, 0x0181, 0x0182, 0x0186, 0x0187, 0x0189, 0x018b, 0x018d,
+
0x018e, 0x018f, 0x0190, 0x0191, 0x0193, 0x0194, 0x0195, 0x0196,
+
0x0197, 0x0198, 0x019a, 0x019c, 0x019d, 0x019e, 0x019f, 0x01a0,
+
0x01a6, 0x01a7, 0x01a9, 0x01aa, 0x01ac, 0x01ae, 0x01af, 0x01b1,
+
0x01b3, 0x01b7, 0x01b8, 0x01ba, 0x01bc, 0x01be, 0x01c4, 0x01c5,
+
0x01c7, 0x01c8, 0x01ca, 0x01cb, 0x018e, 0x01de, 0x01f0, 0x01f1,
+
0x01f2, 0x0250, 0x0181, 0x0186, 0x0255, 0x0189, 0x0258, 0x018f,
+
0x025a, 0x0190, 0x025c, 0x0193, 0x0261, 0x0194, 0x0264, 0x0197,
+
0x0196, 0x026a, 0x019c, 0x0270, 0x019d, 0x0273, 0x019f, 0x0276,
+
0x01a6, 0x0281, 0x01a9, 0x0284, 0x01ae, 0x0289, 0x01b1, 0x028c,
+
0x01b7, 0x0293, 0x0386, 0x0387, 0x0388, 0x038c, 0x038e, 0x0390,
+
0x0391, 0x03a0, 0x0386, 0x0388, 0x03b0, 0x0391, 0x03a0, 0x03a3,
+
0x03a3, 0x038c, 0x038e, 0x0392, 0x0398, 0x03d2, 0x03a6, 0x03a0,
+
0x03da, 0x03e2, 0x039a, 0x03a1, 0x03a3, 0x03f3, 0x0401, 0x0410,
+
0x0420, 0x0410, 0x0420, 0x0401, 0x0460, 0x0482, 0x0490, 0x04c0,
+
0x04c1, 0x04d0, 0x0531, 0x0559, 0x0531, 0x0587, 0x10a0, 0x10d0,
+
0x1e00, 0x1e96, 0x1e60, 0x1ea0, 0x1f08, 0x1f08, 0x1f18, 0x1f18,
+
0x1f28, 0x1f28, 0x1f38, 0x1f38, 0x1f48, 0x1f48, 0x1f50, 0x1f59,
+
0x1f52, 0x1f5b, 0x1f54, 0x1f5d, 0x1f56, 0x1f5f, 0x1f59, 0x1f68,
+
0x1f68, 0x1fba, 0x1fc8, 0x1fda, 0x1ff8, 0x1fea, 0x1ffa, 0x1f88,
+
0x1f88, 0x1f98, 0x1f98, 0x1fa8, 0x1fa8, 0x1fb8, 0x1fb2, 0x1fbc,
+
0x1fb4, 0x1fb8, 0x1fba, 0x1fbc, 0x1fbd, 0x1fcc, 0x1fc4, 0x1fc8,
+
0x1fcc, 0x1fcd, 0x1fd8, 0x1fd2, 0x1fd8, 0x1fda, 0x1fdd, 0x1fe8,
+
0x1fe2, 0x1fec, 0x1fe6, 0x1fe8, 0x1fea, 0x1fec, 0x1fed, 0x1ffc,
+
0x1ff4, 0x1ff8, 0x1ffa, 0x1ffc, 0x1ffd, 0x2160, 0x2180, 0x24b6,
+
0x24b6, 0x24ea, 0xff21, 0xff3b, 0xff21, 0xff5b, }))
// - values test_equal(values("foo"),({'f','o','o'}))