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

Last change on this file since 39029 was 39029, checked in by Kon Lovett, 8 months ago

drop unnecessary "quoting"

File size: 571 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.