From 901440d00b54e747cc68da70df3a0a1eaef258fc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 20 Apr 2021 07:43:40 -0700 Subject: 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. --- tests/012/parse.tl | 17 +++++++++-------- 1 file 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))) -- cgit v1.2.3