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

Last change on this file since 39028 was 39028, checked in by Kon Lovett, 7 weeks ago

add Unicode & LaTeX Named Chars egg

File size: 591 bytes
Line 
1;;;; unitex-named-chars-test.scm  -*- Scheme -*-
2;;;; Kon Lovett, Sep '20
3
4(import test)
5
6(include "test-gloss.incl")
7
8(test-begin "Unicode & LaTeX Named Chars")
9
10;;;
11
12(import (only (chicken base) char-name))
13(import 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(gloss #\/:no_pedestrians:/ #\/Vdash/ #\/:smoking:/ #\/:speedboat:/)
24
25;;;
26
27(test-end "Unicode & LaTeX Named Chars")
28
29(test-exit)
Note: See TracBrowser for help on using the repository browser.