tests/012/parse.tl


1
2
3
4
5
6
7
8
9
10
11
12
13

(load "../common")

(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))