blob: 2bce20dc40178898d984bb7b92de69301f8116e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(load "../common")
(unless (< (sizeof wchar) 4)
(test (read `"@(str-buf #b'EDB081')"`)
"\xDCED\xDCB0\xDC81")
(test (read `"@(str-buf #b'F3FF')"`)
"\xDCF3\xDCFF")
(test (regex-parse (str-buf #b'EDB081'))
(compound "\xDCED\xDCB0\xDC81"))
(test (regex-parse (str-buf #b'F3FF'))
(compound #\xDCF3 #\xDCFF)))
|
