source: project/release/5/unitex-named-chars/trunk/tests/unitex-named-chars-test.scm @ 39951

Last change on this file since 39951 was 39951, checked in by Kon Lovett, 2 months ago

test needs utf8 (need it to print anyway)

File size: 653 bytes
Line 
1;;;; unitex-named-chars-test.scm  -*- Scheme -*-
2;;;; Kon Lovett, Sep '20
3(import scheme utf8)
4
5(import test)
6(import (only (chicken format) format))
7(include "test-gloss.incl")
8
9(test-begin "Unicode & LaTeX Named Chars")
10
11;;;
12
13(import (only (chicken base) char-name) unitex-named-chars)
14
15;;
16
17(test #\exclamdown (char-name '|exclamdown|))
18(test #x000A1 (char->integer (char-name '|exclamdown|)))
19
20(test #\:blue_car: (char-name '|:blue_car:|))
21(test #x1F699 (char->integer (char-name '|:blue_car:|)))
22
23;--> ????  -- umm, yeah, ?????
24(gloss #\:no_pedestrians: #\Vdash #\:smoking: #\:speedboat:)
25
26;;;
27
28(test-end "Unicode & LaTeX Named Chars")
29
30(test-exit)
Note: See TracBrowser for help on using the repository browser.