diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-20 07:43:40 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-20 07:43:40 -0700 |
commit | 901440d00b54e747cc68da70df3a0a1eaef258fc (patch) | |
tree | 886d22b44908f661d77030e9954c8a47b0d7a5e0 /tests | |
parent | 77373aa746c8a4b15ef5c15d62dfac710b817b0b (diff) | |
download | txr-901440d00b54e747cc68da70df3a0a1eaef258fc.tar.gz txr-901440d00b54e747cc68da70df3a0a1eaef258fc.tar.bz2 txr-901440d00b54e747cc68da70df3a0a1eaef258fc.zip |
tests: disable some UTF-8 tests on 16 bit wchar_t.
* tests/012/parse.tl: All the tests in this file blow up on
systems that don't have a full-blown character type.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/012/parse.tl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/tests/012/parse.tl b/tests/012/parse.tl index d28f9057..2bce20dc 100644 --- a/tests/012/parse.tl +++ b/tests/012/parse.tl @@ -1,13 +1,14 @@ (load "../common") -(test (read `"@(str-buf #b'EDB081')"`) - "\xDCED\xDCB0\xDC81") +(unless (< (sizeof wchar) 4) + (test (read `"@(str-buf #b'EDB081')"`) + "\xDCED\xDCB0\xDC81") -(test (read `"@(str-buf #b'F3FF')"`) - "\xDCF3\xDCFF") + (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'EDB081')) + (compound "\xDCED\xDCB0\xDC81")) -(test (regex-parse (str-buf #b'F3FF')) - (compound #\xDCF3 #\xDCFF)) + (test (regex-parse (str-buf #b'F3FF')) + (compound #\xDCF3 #\xDCFF))) |