1
#! /usr/bin/env sscm -C EUC-JP
2
;; -*- buffer-file-coding-system: euc-jp -*-
4
;; Filename : test-char.scm
5
;; About : unit test for R5RS char
7
;; Copyright (C) 2005-2006 Kazuki Ohta <mover AT hct.zaq.ne.jp>
8
;; Copyright (c) 2007 SigScheme Project <uim AT freedesktop.org>
10
;; All rights reserved.
12
;; Redistribution and use in source and binary forms, with or without
13
;; modification, are permitted provided that the following conditions
16
;; 1. Redistributions of source code must retain the above copyright
17
;; notice, this list of conditions and the following disclaimer.
18
;; 2. Redistributions in binary form must reproduce the above copyright
19
;; notice, this list of conditions and the following disclaimer in the
20
;; documentation and/or other materials provided with the distribution.
21
;; 3. Neither the name of authors nor the names of its contributors
22
;; may be used to endorse or promote products derived from this software
23
;; without specific prior written permission.
25
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
26
;; IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
27
;; THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28
;; PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
29
;; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
30
;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
31
;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
32
;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
33
;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
34
;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
35
;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37
(load "./test/unittest.scm")
39
(if (not (symbol-bound? 'char?))
40
(test-skip "R5RS characters is not enabled"))
46
(obj->literal (integer->char i))))
48
;; invalid character literal
49
(tn "invalid char literal")
50
(assert-parse-error (tn) "#\\nonexistent")
54
(read (open-input-string "#\\x")))
55
(assert-parse-error (tn) "#\\x0")
56
(assert-parse-error (tn) "#\\x1")
57
(assert-parse-error (tn) "#\\x0g")
58
(assert-parse-error (tn) "#\\x1g")
59
(assert-parse-error (tn) "#\\x00g")
60
(assert-parse-error (tn) "#\\x01g")
62
(assert-parse-error (tn) "#\\x000")
63
(assert-parse-error (tn) "#\\x010")
64
(assert-parse-error (tn) "#\\x001")
65
(assert-parse-error (tn) "#\\x100")
66
(assert-parse-error (tn) "#\\x00a")
67
(assert-parse-error (tn) "#\\x0a0")
68
(assert-parse-error (tn) "#\\xa00")
70
(assert-parse-error (tn) "#\\x-0")
71
(assert-parse-error (tn) "#\\x-1")
72
(assert-parse-error (tn) "#\\x-00")
73
(assert-parse-error (tn) "#\\x-01")
74
(assert-parse-error (tn) "#\\x-000")
75
(assert-parse-error (tn) "#\\x-010")
76
(assert-parse-error (tn) "#\\x-001")
77
(assert-parse-error (tn) "#\\x-100")
78
(assert-parse-error (tn) "#\\x-00a")
79
(assert-parse-error (tn) "#\\x-0a0")
80
(assert-parse-error (tn) "#\\x-a00")
82
(assert-parse-error (tn) "#\\x+0")
83
(assert-parse-error (tn) "#\\x+1")
84
(assert-parse-error (tn) "#\\x+00")
85
(assert-parse-error (tn) "#\\x+01")
86
(assert-parse-error (tn) "#\\x+000")
87
(assert-parse-error (tn) "#\\x+010")
88
(assert-parse-error (tn) "#\\x+001")
89
(assert-parse-error (tn) "#\\x+100")
90
(assert-parse-error (tn) "#\\x+00a")
91
(assert-parse-error (tn) "#\\x+0a0")
92
(assert-parse-error (tn) "#\\x+a00")
95
(assert-true "alphabet char" (char? #\a))
96
(assert-true "space 1" (char? #\space))
97
(assert-true "space 2" (char? #\ ))
98
(assert-true "tab" (char? #\ ))
99
(assert-true "newline 2" (char? #\newline))
100
(assert-true "newline 2" (char? #\
102
(assert-true "hiragana char" (char? #\��))
103
(assert-true "( char" (char? #\())
104
(assert-true ") char" (char? #\)))
105
(assert-true "\\ char" (char? #\\))
107
(tn "R5RS named chars case-insensitivity")
108
(assert-equal? (tn) #\newline (integer->char 10))
109
(assert-equal? (tn) #\Newline (integer->char 10))
110
(assert-equal? (tn) #\NEWLINE (integer->char 10))
111
(assert-equal? (tn) #\NeWliNE (integer->char 10))
112
(assert-equal? (tn) #\space (integer->char 32))
113
(assert-equal? (tn) #\Space (integer->char 32))
114
(assert-equal? (tn) #\SPACE (integer->char 32))
115
(assert-equal? (tn) #\SpACe (integer->char 32))
118
;; R6RS(SRFI-75) named chars
121
;; NOTE: #\x0e -style character is defined in R6RS(SRFI-75)
122
(tn "R6RS named chars")
123
(assert-equal? (tn) #\nul #\x00) ;; 0
124
(assert-equal? (tn) #\alarm #\x07) ;; 7
125
(assert-equal? (tn) #\backspace #\x08) ;; 8
126
(assert-equal? (tn) #\tab #\x09) ;; 9
127
(assert-equal? (tn) #\newline #\x0a) ;; 10
128
(assert-equal? (tn) #\vtab #\x0b) ;; 11
129
(assert-equal? (tn) #\page #\x0c) ;; 12
130
(assert-equal? (tn) #\return #\x0d) ;; 13
131
(assert-equal? (tn) #\esc #\x1b) ;; 27
132
(assert-equal? (tn) #\space #\x20) ;; 32
133
(assert-equal? (tn) #\delete #\x7f) ;; 127
135
(assert-equal? (tn) "#\\nul" (obj->literal #\x00)) ;; 0
136
(assert-equal? (tn) "#\\alarm" (obj->literal #\x07)) ;; 7
137
(assert-equal? (tn) "#\\backspace" (obj->literal #\x08)) ;; 8
138
(assert-equal? (tn) "#\\tab" (obj->literal #\x09)) ;; 9
139
(assert-equal? (tn) "#\\newline" (obj->literal #\x0a)) ;; 10
140
(assert-equal? (tn) "#\\vtab" (obj->literal #\x0b)) ;; 11
141
(assert-equal? (tn) "#\\page" (obj->literal #\x0c)) ;; 12
142
(assert-equal? (tn) "#\\return" (obj->literal #\x0d)) ;; 13
143
(assert-equal? (tn) "#\\esc" (obj->literal #\x1b)) ;; 27
144
(assert-equal? (tn) "#\\space" (obj->literal #\x20)) ;; 32
145
(assert-equal? (tn) "#\\delete" (obj->literal #\x7f)) ;; 127
148
(assert-equal? (tn) "#\\nul" (obj->literal #\nul)) ;; 0
149
(assert-equal? (tn) "#\\x01" (obj->literal #\x01)) ;; 1
150
(assert-equal? (tn) "#\\x02" (obj->literal #\x02)) ;; 2
151
(assert-equal? (tn) "#\\x03" (obj->literal #\x03)) ;; 3
152
(assert-equal? (tn) "#\\x04" (obj->literal #\x04)) ;; 4
153
(assert-equal? (tn) "#\\x05" (obj->literal #\x05)) ;; 5
154
(assert-equal? (tn) "#\\x06" (obj->literal #\x06)) ;; 6
155
(assert-equal? (tn) "#\\alarm" (obj->literal #\alarm)) ;; 7
156
(assert-equal? (tn) "#\\backspace" (obj->literal #\backspace)) ;; 8
157
(assert-equal? (tn) "#\\tab" (obj->literal #\tab)) ;; 9
158
(assert-equal? (tn) "#\\newline" (obj->literal #\newline)) ;; 10
159
(assert-equal? (tn) "#\\vtab" (obj->literal #\vtab)) ;; 11
160
(assert-equal? (tn) "#\\page" (obj->literal #\page)) ;; 12
161
(assert-equal? (tn) "#\\return" (obj->literal #\return)) ;; 13
162
(assert-equal? (tn) "#\\x0e" (obj->literal #\x0e)) ;; 14
163
(assert-equal? (tn) "#\\x0f" (obj->literal #\x0f)) ;; 15
164
(assert-equal? (tn) "#\\x10" (obj->literal #\x10)) ;; 16
165
(assert-equal? (tn) "#\\x11" (obj->literal #\x11)) ;; 17
166
(assert-equal? (tn) "#\\x12" (obj->literal #\x12)) ;; 18
167
(assert-equal? (tn) "#\\x13" (obj->literal #\x13)) ;; 19
168
(assert-equal? (tn) "#\\x14" (obj->literal #\x14)) ;; 20
169
(assert-equal? (tn) "#\\x15" (obj->literal #\x15)) ;; 21
170
(assert-equal? (tn) "#\\x16" (obj->literal #\x16)) ;; 22
171
(assert-equal? (tn) "#\\x17" (obj->literal #\x17)) ;; 23
172
(assert-equal? (tn) "#\\x18" (obj->literal #\x18)) ;; 24
173
(assert-equal? (tn) "#\\x19" (obj->literal #\x19)) ;; 25
174
(assert-equal? (tn) "#\\x1a" (obj->literal #\x1a)) ;; 26
175
(assert-equal? (tn) "#\\esc" (obj->literal #\esc)) ;; 27
176
(assert-equal? (tn) "#\\x1c" (obj->literal #\x1c)) ;; 28
177
(assert-equal? (tn) "#\\x1d" (obj->literal #\x1d)) ;; 29
178
(assert-equal? (tn) "#\\x1e" (obj->literal #\x1e)) ;; 30
179
(assert-equal? (tn) "#\\x1f" (obj->literal #\x1f)) ;; 31
180
(assert-equal? (tn) "#\\space" (obj->literal #\space)) ;; 32
181
(assert-equal? (tn) "#\\!" (obj->literal #\!)) ;; 33
182
(assert-equal? (tn) "#\\\"" (obj->literal #\")) ;; 34
183
(assert-equal? (tn) "#\\#" (obj->literal #\#)) ;; 35
184
(assert-equal? (tn) "#\\$" (obj->literal #\$)) ;; 36
185
(assert-equal? (tn) "#\\%" (obj->literal #\%)) ;; 37
186
(assert-equal? (tn) "#\\&" (obj->literal #\&)) ;; 38
187
(assert-equal? (tn) "#\\'" (obj->literal #\')) ;; 39
188
(assert-equal? (tn) "#\\(" (obj->literal #\()) ;; 40
189
(assert-equal? (tn) "#\\)" (obj->literal #\))) ;; 41
190
(assert-equal? (tn) "#\\*" (obj->literal #\*)) ;; 42
191
(assert-equal? (tn) "#\\+" (obj->literal #\+)) ;; 43
192
(assert-equal? (tn) "#\\," (obj->literal #\,)) ;; 44
193
(assert-equal? (tn) "#\\-" (obj->literal #\-)) ;; 45
194
(assert-equal? (tn) "#\\." (obj->literal #\.)) ;; 46
195
(assert-equal? (tn) "#\\/" (obj->literal #\/)) ;; 47
196
(assert-equal? (tn) "#\\0" (obj->literal #\0)) ;; 48
197
(assert-equal? (tn) "#\\1" (obj->literal #\1)) ;; 49
198
(assert-equal? (tn) "#\\2" (obj->literal #\2)) ;; 50
199
(assert-equal? (tn) "#\\3" (obj->literal #\3)) ;; 51
200
(assert-equal? (tn) "#\\4" (obj->literal #\4)) ;; 52
201
(assert-equal? (tn) "#\\5" (obj->literal #\5)) ;; 53
202
(assert-equal? (tn) "#\\6" (obj->literal #\6)) ;; 54
203
(assert-equal? (tn) "#\\7" (obj->literal #\7)) ;; 55
204
(assert-equal? (tn) "#\\8" (obj->literal #\8)) ;; 56
205
(assert-equal? (tn) "#\\9" (obj->literal #\9)) ;; 57
206
(assert-equal? (tn) "#\\:" (obj->literal #\:)) ;; 58
207
(assert-equal? (tn) "#\\;" (obj->literal #\;)) ;; 59
208
(assert-equal? (tn) "#\\<" (obj->literal #\<)) ;; 60
209
(assert-equal? (tn) "#\\=" (obj->literal #\=)) ;; 61
210
(assert-equal? (tn) "#\\>" (obj->literal #\>)) ;; 62
211
(assert-equal? (tn) "#\\?" (obj->literal #\?)) ;; 63
212
(assert-equal? (tn) "#\\@" (obj->literal #\@)) ;; 64
213
(assert-equal? (tn) "#\\A" (obj->literal #\A)) ;; 65
214
(assert-equal? (tn) "#\\B" (obj->literal #\B)) ;; 66
215
(assert-equal? (tn) "#\\C" (obj->literal #\C)) ;; 67
216
(assert-equal? (tn) "#\\D" (obj->literal #\D)) ;; 68
217
(assert-equal? (tn) "#\\E" (obj->literal #\E)) ;; 69
218
(assert-equal? (tn) "#\\F" (obj->literal #\F)) ;; 70
219
(assert-equal? (tn) "#\\G" (obj->literal #\G)) ;; 71
220
(assert-equal? (tn) "#\\H" (obj->literal #\H)) ;; 72
221
(assert-equal? (tn) "#\\I" (obj->literal #\I)) ;; 73
222
(assert-equal? (tn) "#\\J" (obj->literal #\J)) ;; 74
223
(assert-equal? (tn) "#\\K" (obj->literal #\K)) ;; 75
224
(assert-equal? (tn) "#\\L" (obj->literal #\L)) ;; 76
225
(assert-equal? (tn) "#\\M" (obj->literal #\M)) ;; 77
226
(assert-equal? (tn) "#\\N" (obj->literal #\N)) ;; 78
227
(assert-equal? (tn) "#\\O" (obj->literal #\O)) ;; 79
228
(assert-equal? (tn) "#\\P" (obj->literal #\P)) ;; 80
229
(assert-equal? (tn) "#\\Q" (obj->literal #\Q)) ;; 81
230
(assert-equal? (tn) "#\\R" (obj->literal #\R)) ;; 82
231
(assert-equal? (tn) "#\\S" (obj->literal #\S)) ;; 83
232
(assert-equal? (tn) "#\\T" (obj->literal #\T)) ;; 84
233
(assert-equal? (tn) "#\\U" (obj->literal #\U)) ;; 85
234
(assert-equal? (tn) "#\\V" (obj->literal #\V)) ;; 86
235
(assert-equal? (tn) "#\\W" (obj->literal #\W)) ;; 87
236
(assert-equal? (tn) "#\\X" (obj->literal #\X)) ;; 88
237
(assert-equal? (tn) "#\\Y" (obj->literal #\Y)) ;; 89
238
(assert-equal? (tn) "#\\Z" (obj->literal #\Z)) ;; 90
239
(assert-equal? (tn) "#\\[" (obj->literal #\[)) ;; 91
240
(assert-equal? (tn) "#\\\\" (obj->literal #\\)) ;; 92
241
(assert-equal? (tn) "#\\]" (obj->literal #\])) ;; 93
242
(assert-equal? (tn) "#\\^" (obj->literal #\^)) ;; 94
243
(assert-equal? (tn) "#\\_" (obj->literal #\_)) ;; 95
244
(assert-equal? (tn) "#\\`" (obj->literal #\`)) ;; 96
245
(assert-equal? (tn) "#\\a" (obj->literal #\a)) ;; 97
246
(assert-equal? (tn) "#\\b" (obj->literal #\b)) ;; 98
247
(assert-equal? (tn) "#\\c" (obj->literal #\c)) ;; 99
248
(assert-equal? (tn) "#\\d" (obj->literal #\d)) ;; 100
249
(assert-equal? (tn) "#\\e" (obj->literal #\e)) ;; 101
250
(assert-equal? (tn) "#\\f" (obj->literal #\f)) ;; 102
251
(assert-equal? (tn) "#\\g" (obj->literal #\g)) ;; 103
252
(assert-equal? (tn) "#\\h" (obj->literal #\h)) ;; 104
253
(assert-equal? (tn) "#\\i" (obj->literal #\i)) ;; 105
254
(assert-equal? (tn) "#\\j" (obj->literal #\j)) ;; 106
255
(assert-equal? (tn) "#\\k" (obj->literal #\k)) ;; 107
256
(assert-equal? (tn) "#\\l" (obj->literal #\l)) ;; 108
257
(assert-equal? (tn) "#\\m" (obj->literal #\m)) ;; 109
258
(assert-equal? (tn) "#\\n" (obj->literal #\n)) ;; 110
259
(assert-equal? (tn) "#\\o" (obj->literal #\o)) ;; 111
260
(assert-equal? (tn) "#\\p" (obj->literal #\p)) ;; 112
261
(assert-equal? (tn) "#\\q" (obj->literal #\q)) ;; 113
262
(assert-equal? (tn) "#\\r" (obj->literal #\r)) ;; 114
263
(assert-equal? (tn) "#\\s" (obj->literal #\s)) ;; 115
264
(assert-equal? (tn) "#\\t" (obj->literal #\t)) ;; 116
265
(assert-equal? (tn) "#\\u" (obj->literal #\u)) ;; 117
266
(assert-equal? (tn) "#\\v" (obj->literal #\v)) ;; 118
267
(assert-equal? (tn) "#\\w" (obj->literal #\w)) ;; 119
268
(assert-equal? (tn) "#\\x" (obj->literal #\x)) ;; 120
269
(assert-equal? (tn) "#\\y" (obj->literal #\y)) ;; 121
270
(assert-equal? (tn) "#\\z" (obj->literal #\z)) ;; 122
271
(assert-equal? (tn) "#\\{" (obj->literal #\{)) ;; 123
272
(assert-equal? (tn) "#\\|" (obj->literal #\|)) ;; 124
273
(assert-equal? (tn) "#\\}" (obj->literal #\})) ;; 125
274
(assert-equal? (tn) "#\\~" (obj->literal #\~)) ;; 126
275
(assert-equal? (tn) "#\\delete" (obj->literal #\delete)) ;; 127
277
;; R6RS(SRFI-75) hexadecimal character literal
278
(tn "R6RS hexadecimal char literal")
279
(assert-equal? (tn) #\nul #\x00) ;; 0
280
(assert-equal? (tn) #\x01 #\x01) ;; 1
281
(assert-equal? (tn) #\x02 #\x02) ;; 2
282
(assert-equal? (tn) #\x03 #\x03) ;; 3
283
(assert-equal? (tn) #\x04 #\x04) ;; 4
284
(assert-equal? (tn) #\x05 #\x05) ;; 5
285
(assert-equal? (tn) #\x06 #\x06) ;; 6
286
(assert-equal? (tn) #\alarm #\x07) ;; 7
287
(assert-equal? (tn) #\backspace #\x08) ;; 8
288
(assert-equal? (tn) #\tab #\x09) ;; 9
289
(assert-equal? (tn) #\newline #\x0a) ;; 10
290
(assert-equal? (tn) #\vtab #\x0b) ;; 11
291
(assert-equal? (tn) #\page #\x0c) ;; 12
292
(assert-equal? (tn) #\return #\x0d) ;; 13
293
(assert-equal? (tn) #\x0e #\x0e) ;; 14
294
(assert-equal? (tn) #\x0f #\x0f) ;; 15
295
(assert-equal? (tn) #\x10 #\x10) ;; 16
296
(assert-equal? (tn) #\x11 #\x11) ;; 17
297
(assert-equal? (tn) #\x12 #\x12) ;; 18
298
(assert-equal? (tn) #\x13 #\x13) ;; 19
299
(assert-equal? (tn) #\x14 #\x14) ;; 20
300
(assert-equal? (tn) #\x15 #\x15) ;; 21
301
(assert-equal? (tn) #\x16 #\x16) ;; 22
302
(assert-equal? (tn) #\x17 #\x17) ;; 23
303
(assert-equal? (tn) #\x18 #\x18) ;; 24
304
(assert-equal? (tn) #\x19 #\x19) ;; 25
305
(assert-equal? (tn) #\x1a #\x1a) ;; 26
306
(assert-equal? (tn) #\esc #\x1b) ;; 27
307
(assert-equal? (tn) #\x1c #\x1c) ;; 28
308
(assert-equal? (tn) #\x1d #\x1d) ;; 29
309
(assert-equal? (tn) #\x1e #\x1e) ;; 30
310
(assert-equal? (tn) #\x1f #\x1f) ;; 31
311
(assert-equal? (tn) #\space #\x20) ;; 32
312
(assert-equal? (tn) #\! #\x21) ;; 33
313
(assert-equal? (tn) #\" #\x22) ;; 34
314
(assert-equal? (tn) #\# #\x23) ;; 35
315
(assert-equal? (tn) #\$ #\x24) ;; 36
316
(assert-equal? (tn) #\% #\x25) ;; 37
317
(assert-equal? (tn) #\& #\x26) ;; 38
318
(assert-equal? (tn) #\' #\x27) ;; 39
319
(assert-equal? (tn) #\( #\x28) ;; 40
320
(assert-equal? (tn) #\) #\x29) ;; 41
321
(assert-equal? (tn) #\* #\x2a) ;; 42
322
(assert-equal? (tn) #\+ #\x2b) ;; 43
323
(assert-equal? (tn) #\, #\x2c) ;; 44
324
(assert-equal? (tn) #\- #\x2d) ;; 45
325
(assert-equal? (tn) #\. #\x2e) ;; 46
326
(assert-equal? (tn) #\/ #\x2f) ;; 47
327
(assert-equal? (tn) #\0 #\x30) ;; 48
328
(assert-equal? (tn) #\1 #\x31) ;; 49
329
(assert-equal? (tn) #\2 #\x32) ;; 50
330
(assert-equal? (tn) #\3 #\x33) ;; 51
331
(assert-equal? (tn) #\4 #\x34) ;; 52
332
(assert-equal? (tn) #\5 #\x35) ;; 53
333
(assert-equal? (tn) #\6 #\x36) ;; 54
334
(assert-equal? (tn) #\7 #\x37) ;; 55
335
(assert-equal? (tn) #\8 #\x38) ;; 56
336
(assert-equal? (tn) #\9 #\x39) ;; 57
337
(assert-equal? (tn) #\: #\x3a) ;; 58
338
(assert-equal? (tn) #\; #\x3b) ;; 59
339
(assert-equal? (tn) #\< #\x3c) ;; 60
340
(assert-equal? (tn) #\= #\x3d) ;; 61
341
(assert-equal? (tn) #\> #\x3e) ;; 62
342
(assert-equal? (tn) #\? #\x3f) ;; 63
343
(assert-equal? (tn) #\@ #\x40) ;; 64
344
(assert-equal? (tn) #\A #\x41) ;; 65
345
(assert-equal? (tn) #\B #\x42) ;; 66
346
(assert-equal? (tn) #\C #\x43) ;; 67
347
(assert-equal? (tn) #\D #\x44) ;; 68
348
(assert-equal? (tn) #\E #\x45) ;; 69
349
(assert-equal? (tn) #\F #\x46) ;; 70
350
(assert-equal? (tn) #\G #\x47) ;; 71
351
(assert-equal? (tn) #\H #\x48) ;; 72
352
(assert-equal? (tn) #\I #\x49) ;; 73
353
(assert-equal? (tn) #\J #\x4a) ;; 74
354
(assert-equal? (tn) #\K #\x4b) ;; 75
355
(assert-equal? (tn) #\L #\x4c) ;; 76
356
(assert-equal? (tn) #\M #\x4d) ;; 77
357
(assert-equal? (tn) #\N #\x4e) ;; 78
358
(assert-equal? (tn) #\O #\x4f) ;; 79
359
(assert-equal? (tn) #\P #\x50) ;; 80
360
(assert-equal? (tn) #\Q #\x51) ;; 81
361
(assert-equal? (tn) #\R #\x52) ;; 82
362
(assert-equal? (tn) #\S #\x53) ;; 83
363
(assert-equal? (tn) #\T #\x54) ;; 84
364
(assert-equal? (tn) #\U #\x55) ;; 85
365
(assert-equal? (tn) #\V #\x56) ;; 86
366
(assert-equal? (tn) #\W #\x57) ;; 87
367
(assert-equal? (tn) #\X #\x58) ;; 88
368
(assert-equal? (tn) #\Y #\x59) ;; 89
369
(assert-equal? (tn) #\Z #\x5a) ;; 90
370
(assert-equal? (tn) #\[ #\x5b) ;; 91
371
(assert-equal? (tn) #\\ #\x5c) ;; 92
372
(assert-equal? (tn) #\] #\x5d) ;; 93
373
(assert-equal? (tn) #\^ #\x5e) ;; 94
374
(assert-equal? (tn) #\_ #\x5f) ;; 95
375
(assert-equal? (tn) #\` #\x60) ;; 96
376
(assert-equal? (tn) #\a #\x61) ;; 97
377
(assert-equal? (tn) #\b #\x62) ;; 98
378
(assert-equal? (tn) #\c #\x63) ;; 99
379
(assert-equal? (tn) #\d #\x64) ;; 100
380
(assert-equal? (tn) #\e #\x65) ;; 101
381
(assert-equal? (tn) #\f #\x66) ;; 102
382
(assert-equal? (tn) #\g #\x67) ;; 103
383
(assert-equal? (tn) #\h #\x68) ;; 104
384
(assert-equal? (tn) #\i #\x69) ;; 105
385
(assert-equal? (tn) #\j #\x6a) ;; 106
386
(assert-equal? (tn) #\k #\x6b) ;; 107
387
(assert-equal? (tn) #\l #\x6c) ;; 108
388
(assert-equal? (tn) #\m #\x6d) ;; 109
389
(assert-equal? (tn) #\n #\x6e) ;; 110
390
(assert-equal? (tn) #\o #\x6f) ;; 111
391
(assert-equal? (tn) #\p #\x70) ;; 112
392
(assert-equal? (tn) #\q #\x71) ;; 113
393
(assert-equal? (tn) #\r #\x72) ;; 114
394
(assert-equal? (tn) #\s #\x73) ;; 115
395
(assert-equal? (tn) #\t #\x74) ;; 116
396
(assert-equal? (tn) #\u #\x75) ;; 117
397
(assert-equal? (tn) #\v #\x76) ;; 118
398
(assert-equal? (tn) #\w #\x77) ;; 119
399
(assert-equal? (tn) #\x #\x78) ;; 120
400
(assert-equal? (tn) #\y #\x79) ;; 121
401
(assert-equal? (tn) #\z #\x7a) ;; 122
402
(assert-equal? (tn) #\{ #\x7b) ;; 123
403
(assert-equal? (tn) #\| #\x7c) ;; 124
404
(assert-equal? (tn) #\} #\x7d) ;; 125
405
(assert-equal? (tn) #\~ #\x7e) ;; 126
406
(assert-equal? (tn) #\delete #\x7f) ;; 127
408
(tn "R6RS hexadecimal char literal (string form)")
409
(assert-equal? (tn) "#\\nul" (obj->literal #\x00)) ;; 0
410
(assert-equal? (tn) "#\\x01" (obj->literal #\x01)) ;; 1
411
(assert-equal? (tn) "#\\x02" (obj->literal #\x02)) ;; 2
412
(assert-equal? (tn) "#\\x03" (obj->literal #\x03)) ;; 3
413
(assert-equal? (tn) "#\\x04" (obj->literal #\x04)) ;; 4
414
(assert-equal? (tn) "#\\x05" (obj->literal #\x05)) ;; 5
415
(assert-equal? (tn) "#\\x06" (obj->literal #\x06)) ;; 6
416
(assert-equal? (tn) "#\\alarm" (obj->literal #\x07)) ;; 7
417
(assert-equal? (tn) "#\\backspace" (obj->literal #\x08)) ;; 8
418
(assert-equal? (tn) "#\\tab" (obj->literal #\x09)) ;; 9
419
(assert-equal? (tn) "#\\newline" (obj->literal #\x0a)) ;; 10
420
(assert-equal? (tn) "#\\vtab" (obj->literal #\x0b)) ;; 11
421
(assert-equal? (tn) "#\\page" (obj->literal #\x0c)) ;; 12
422
(assert-equal? (tn) "#\\return" (obj->literal #\x0d)) ;; 13
423
(assert-equal? (tn) "#\\x0e" (obj->literal #\x0e)) ;; 14
424
(assert-equal? (tn) "#\\x0f" (obj->literal #\x0f)) ;; 15
425
(assert-equal? (tn) "#\\x10" (obj->literal #\x10)) ;; 16
426
(assert-equal? (tn) "#\\x11" (obj->literal #\x11)) ;; 17
427
(assert-equal? (tn) "#\\x12" (obj->literal #\x12)) ;; 18
428
(assert-equal? (tn) "#\\x13" (obj->literal #\x13)) ;; 19
429
(assert-equal? (tn) "#\\x14" (obj->literal #\x14)) ;; 20
430
(assert-equal? (tn) "#\\x15" (obj->literal #\x15)) ;; 21
431
(assert-equal? (tn) "#\\x16" (obj->literal #\x16)) ;; 22
432
(assert-equal? (tn) "#\\x17" (obj->literal #\x17)) ;; 23
433
(assert-equal? (tn) "#\\x18" (obj->literal #\x18)) ;; 24
434
(assert-equal? (tn) "#\\x19" (obj->literal #\x19)) ;; 25
435
(assert-equal? (tn) "#\\x1a" (obj->literal #\x1a)) ;; 26
436
(assert-equal? (tn) "#\\esc" (obj->literal #\x1b)) ;; 27
437
(assert-equal? (tn) "#\\x1c" (obj->literal #\x1c)) ;; 28
438
(assert-equal? (tn) "#\\x1d" (obj->literal #\x1d)) ;; 29
439
(assert-equal? (tn) "#\\x1e" (obj->literal #\x1e)) ;; 30
440
(assert-equal? (tn) "#\\x1f" (obj->literal #\x1f)) ;; 31
441
(assert-equal? (tn) "#\\space" (obj->literal #\x20)) ;; 32
442
(assert-equal? (tn) "#\\!" (obj->literal #\x21)) ;; 33
443
(assert-equal? (tn) "#\\\"" (obj->literal #\x22)) ;; 34
444
(assert-equal? (tn) "#\\#" (obj->literal #\x23)) ;; 35
445
(assert-equal? (tn) "#\\$" (obj->literal #\x24)) ;; 36
446
(assert-equal? (tn) "#\\%" (obj->literal #\x25)) ;; 37
447
(assert-equal? (tn) "#\\&" (obj->literal #\x26)) ;; 38
448
(assert-equal? (tn) "#\\'" (obj->literal #\x27)) ;; 39
449
(assert-equal? (tn) "#\\(" (obj->literal #\x28)) ;; 40
450
(assert-equal? (tn) "#\\)" (obj->literal #\x29)) ;; 41
451
(assert-equal? (tn) "#\\*" (obj->literal #\x2a)) ;; 42
452
(assert-equal? (tn) "#\\+" (obj->literal #\x2b)) ;; 43
453
(assert-equal? (tn) "#\\," (obj->literal #\x2c)) ;; 44
454
(assert-equal? (tn) "#\\-" (obj->literal #\x2d)) ;; 45
455
(assert-equal? (tn) "#\\." (obj->literal #\x2e)) ;; 46
456
(assert-equal? (tn) "#\\/" (obj->literal #\x2f)) ;; 47
457
(assert-equal? (tn) "#\\0" (obj->literal #\x30)) ;; 48
458
(assert-equal? (tn) "#\\1" (obj->literal #\x31)) ;; 49
459
(assert-equal? (tn) "#\\2" (obj->literal #\x32)) ;; 50
460
(assert-equal? (tn) "#\\3" (obj->literal #\x33)) ;; 51
461
(assert-equal? (tn) "#\\4" (obj->literal #\x34)) ;; 52
462
(assert-equal? (tn) "#\\5" (obj->literal #\x35)) ;; 53
463
(assert-equal? (tn) "#\\6" (obj->literal #\x36)) ;; 54
464
(assert-equal? (tn) "#\\7" (obj->literal #\x37)) ;; 55
465
(assert-equal? (tn) "#\\8" (obj->literal #\x38)) ;; 56
466
(assert-equal? (tn) "#\\9" (obj->literal #\x39)) ;; 57
467
(assert-equal? (tn) "#\\:" (obj->literal #\x3a)) ;; 58
468
(assert-equal? (tn) "#\\;" (obj->literal #\x3b)) ;; 59
469
(assert-equal? (tn) "#\\<" (obj->literal #\x3c)) ;; 60
470
(assert-equal? (tn) "#\\=" (obj->literal #\x3d)) ;; 61
471
(assert-equal? (tn) "#\\>" (obj->literal #\x3e)) ;; 62
472
(assert-equal? (tn) "#\\?" (obj->literal #\x3f)) ;; 63
473
(assert-equal? (tn) "#\\@" (obj->literal #\x40)) ;; 64
474
(assert-equal? (tn) "#\\A" (obj->literal #\x41)) ;; 65
475
(assert-equal? (tn) "#\\B" (obj->literal #\x42)) ;; 66
476
(assert-equal? (tn) "#\\C" (obj->literal #\x43)) ;; 67
477
(assert-equal? (tn) "#\\D" (obj->literal #\x44)) ;; 68
478
(assert-equal? (tn) "#\\E" (obj->literal #\x45)) ;; 69
479
(assert-equal? (tn) "#\\F" (obj->literal #\x46)) ;; 70
480
(assert-equal? (tn) "#\\G" (obj->literal #\x47)) ;; 71
481
(assert-equal? (tn) "#\\H" (obj->literal #\x48)) ;; 72
482
(assert-equal? (tn) "#\\I" (obj->literal #\x49)) ;; 73
483
(assert-equal? (tn) "#\\J" (obj->literal #\x4a)) ;; 74
484
(assert-equal? (tn) "#\\K" (obj->literal #\x4b)) ;; 75
485
(assert-equal? (tn) "#\\L" (obj->literal #\x4c)) ;; 76
486
(assert-equal? (tn) "#\\M" (obj->literal #\x4d)) ;; 77
487
(assert-equal? (tn) "#\\N" (obj->literal #\x4e)) ;; 78
488
(assert-equal? (tn) "#\\O" (obj->literal #\x4f)) ;; 79
489
(assert-equal? (tn) "#\\P" (obj->literal #\x50)) ;; 80
490
(assert-equal? (tn) "#\\Q" (obj->literal #\x51)) ;; 81
491
(assert-equal? (tn) "#\\R" (obj->literal #\x52)) ;; 82
492
(assert-equal? (tn) "#\\S" (obj->literal #\x53)) ;; 83
493
(assert-equal? (tn) "#\\T" (obj->literal #\x54)) ;; 84
494
(assert-equal? (tn) "#\\U" (obj->literal #\x55)) ;; 85
495
(assert-equal? (tn) "#\\V" (obj->literal #\x56)) ;; 86
496
(assert-equal? (tn) "#\\W" (obj->literal #\x57)) ;; 87
497
(assert-equal? (tn) "#\\X" (obj->literal #\x58)) ;; 88
498
(assert-equal? (tn) "#\\Y" (obj->literal #\x59)) ;; 89
499
(assert-equal? (tn) "#\\Z" (obj->literal #\x5a)) ;; 90
500
(assert-equal? (tn) "#\\[" (obj->literal #\x5b)) ;; 91
501
(assert-equal? (tn) "#\\\\" (obj->literal #\x5c)) ;; 92
502
(assert-equal? (tn) "#\\]" (obj->literal #\x5d)) ;; 93
503
(assert-equal? (tn) "#\\^" (obj->literal #\x5e)) ;; 94
504
(assert-equal? (tn) "#\\_" (obj->literal #\x5f)) ;; 95
505
(assert-equal? (tn) "#\\`" (obj->literal #\x60)) ;; 96
506
(assert-equal? (tn) "#\\a" (obj->literal #\x61)) ;; 97
507
(assert-equal? (tn) "#\\b" (obj->literal #\x62)) ;; 98
508
(assert-equal? (tn) "#\\c" (obj->literal #\x63)) ;; 99
509
(assert-equal? (tn) "#\\d" (obj->literal #\x64)) ;; 100
510
(assert-equal? (tn) "#\\e" (obj->literal #\x65)) ;; 101
511
(assert-equal? (tn) "#\\f" (obj->literal #\x66)) ;; 102
512
(assert-equal? (tn) "#\\g" (obj->literal #\x67)) ;; 103
513
(assert-equal? (tn) "#\\h" (obj->literal #\x68)) ;; 104
514
(assert-equal? (tn) "#\\i" (obj->literal #\x69)) ;; 105
515
(assert-equal? (tn) "#\\j" (obj->literal #\x6a)) ;; 106
516
(assert-equal? (tn) "#\\k" (obj->literal #\x6b)) ;; 107
517
(assert-equal? (tn) "#\\l" (obj->literal #\x6c)) ;; 108
518
(assert-equal? (tn) "#\\m" (obj->literal #\x6d)) ;; 109
519
(assert-equal? (tn) "#\\n" (obj->literal #\x6e)) ;; 110
520
(assert-equal? (tn) "#\\o" (obj->literal #\x6f)) ;; 111
521
(assert-equal? (tn) "#\\p" (obj->literal #\x70)) ;; 112
522
(assert-equal? (tn) "#\\q" (obj->literal #\x71)) ;; 113
523
(assert-equal? (tn) "#\\r" (obj->literal #\x72)) ;; 114
524
(assert-equal? (tn) "#\\s" (obj->literal #\x73)) ;; 115
525
(assert-equal? (tn) "#\\t" (obj->literal #\x74)) ;; 116
526
(assert-equal? (tn) "#\\u" (obj->literal #\x75)) ;; 117
527
(assert-equal? (tn) "#\\v" (obj->literal #\x76)) ;; 118
528
(assert-equal? (tn) "#\\w" (obj->literal #\x77)) ;; 119
529
(assert-equal? (tn) "#\\x" (obj->literal #\x78)) ;; 120
530
(assert-equal? (tn) "#\\y" (obj->literal #\x79)) ;; 121
531
(assert-equal? (tn) "#\\z" (obj->literal #\x7a)) ;; 122
532
(assert-equal? (tn) "#\\{" (obj->literal #\x7b)) ;; 123
533
(assert-equal? (tn) "#\\|" (obj->literal #\x7c)) ;; 124
534
(assert-equal? (tn) "#\\}" (obj->literal #\x7d)) ;; 125
535
(assert-equal? (tn) "#\\~" (obj->literal #\x7e)) ;; 126
536
(assert-equal? (tn) "#\\delete" (obj->literal #\x7f)) ;; 127
538
(tn "R6RS hexadecimal char literal (compared with integer-originated char)")
539
(assert-equal? (tn) (integer->char 0) #\x00) ;; 0
540
(assert-equal? (tn) (integer->char 1) #\x01) ;; 1
541
(assert-equal? (tn) (integer->char 2) #\x02) ;; 2
542
(assert-equal? (tn) (integer->char 3) #\x03) ;; 3
543
(assert-equal? (tn) (integer->char 4) #\x04) ;; 4
544
(assert-equal? (tn) (integer->char 5) #\x05) ;; 5
545
(assert-equal? (tn) (integer->char 6) #\x06) ;; 6
546
(assert-equal? (tn) (integer->char 7) #\x07) ;; 7
547
(assert-equal? (tn) (integer->char 8) #\x08) ;; 8
548
(assert-equal? (tn) (integer->char 9) #\x09) ;; 9
549
(assert-equal? (tn) (integer->char 10) #\x0a) ;; 10
550
(assert-equal? (tn) (integer->char 11) #\x0b) ;; 11
551
(assert-equal? (tn) (integer->char 12) #\x0c) ;; 12
552
(assert-equal? (tn) (integer->char 13) #\x0d) ;; 13
553
(assert-equal? (tn) (integer->char 14) #\x0e) ;; 14
554
(assert-equal? (tn) (integer->char 15) #\x0f) ;; 15
555
(assert-equal? (tn) (integer->char 16) #\x10) ;; 16
556
(assert-equal? (tn) (integer->char 17) #\x11) ;; 17
557
(assert-equal? (tn) (integer->char 18) #\x12) ;; 18
558
(assert-equal? (tn) (integer->char 19) #\x13) ;; 19
559
(assert-equal? (tn) (integer->char 20) #\x14) ;; 20
560
(assert-equal? (tn) (integer->char 21) #\x15) ;; 21
561
(assert-equal? (tn) (integer->char 22) #\x16) ;; 22
562
(assert-equal? (tn) (integer->char 23) #\x17) ;; 23
563
(assert-equal? (tn) (integer->char 24) #\x18) ;; 24
564
(assert-equal? (tn) (integer->char 25) #\x19) ;; 25
565
(assert-equal? (tn) (integer->char 26) #\x1a) ;; 26
566
(assert-equal? (tn) (integer->char 27) #\x1b) ;; 27
567
(assert-equal? (tn) (integer->char 28) #\x1c) ;; 28
568
(assert-equal? (tn) (integer->char 29) #\x1d) ;; 29
569
(assert-equal? (tn) (integer->char 30) #\x1e) ;; 30
570
(assert-equal? (tn) (integer->char 31) #\x1f) ;; 31
571
(assert-equal? (tn) (integer->char 32) #\x20) ;; 32
572
(assert-equal? (tn) (integer->char 33) #\x21) ;; 33
573
(assert-equal? (tn) (integer->char 34) #\x22) ;; 34
574
(assert-equal? (tn) (integer->char 35) #\x23) ;; 35
575
(assert-equal? (tn) (integer->char 36) #\x24) ;; 36
576
(assert-equal? (tn) (integer->char 37) #\x25) ;; 37
577
(assert-equal? (tn) (integer->char 38) #\x26) ;; 38
578
(assert-equal? (tn) (integer->char 39) #\x27) ;; 39
579
(assert-equal? (tn) (integer->char 40) #\x28) ;; 40
580
(assert-equal? (tn) (integer->char 41) #\x29) ;; 41
581
(assert-equal? (tn) (integer->char 42) #\x2a) ;; 42
582
(assert-equal? (tn) (integer->char 43) #\x2b) ;; 43
583
(assert-equal? (tn) (integer->char 44) #\x2c) ;; 44
584
(assert-equal? (tn) (integer->char 45) #\x2d) ;; 45
585
(assert-equal? (tn) (integer->char 46) #\x2e) ;; 46
586
(assert-equal? (tn) (integer->char 47) #\x2f) ;; 47
587
(assert-equal? (tn) (integer->char 48) #\x30) ;; 48
588
(assert-equal? (tn) (integer->char 49) #\x31) ;; 49
589
(assert-equal? (tn) (integer->char 50) #\x32) ;; 50
590
(assert-equal? (tn) (integer->char 51) #\x33) ;; 51
591
(assert-equal? (tn) (integer->char 52) #\x34) ;; 52
592
(assert-equal? (tn) (integer->char 53) #\x35) ;; 53
593
(assert-equal? (tn) (integer->char 54) #\x36) ;; 54
594
(assert-equal? (tn) (integer->char 55) #\x37) ;; 55
595
(assert-equal? (tn) (integer->char 56) #\x38) ;; 56
596
(assert-equal? (tn) (integer->char 57) #\x39) ;; 57
597
(assert-equal? (tn) (integer->char 58) #\x3a) ;; 58
598
(assert-equal? (tn) (integer->char 59) #\x3b) ;; 59
599
(assert-equal? (tn) (integer->char 60) #\x3c) ;; 60
600
(assert-equal? (tn) (integer->char 61) #\x3d) ;; 61
601
(assert-equal? (tn) (integer->char 62) #\x3e) ;; 62
602
(assert-equal? (tn) (integer->char 63) #\x3f) ;; 63
603
(assert-equal? (tn) (integer->char 64) #\x40) ;; 64
604
(assert-equal? (tn) (integer->char 65) #\x41) ;; 65
605
(assert-equal? (tn) (integer->char 66) #\x42) ;; 66
606
(assert-equal? (tn) (integer->char 67) #\x43) ;; 67
607
(assert-equal? (tn) (integer->char 68) #\x44) ;; 68
608
(assert-equal? (tn) (integer->char 69) #\x45) ;; 69
609
(assert-equal? (tn) (integer->char 70) #\x46) ;; 70
610
(assert-equal? (tn) (integer->char 71) #\x47) ;; 71
611
(assert-equal? (tn) (integer->char 72) #\x48) ;; 72
612
(assert-equal? (tn) (integer->char 73) #\x49) ;; 73
613
(assert-equal? (tn) (integer->char 74) #\x4a) ;; 74
614
(assert-equal? (tn) (integer->char 75) #\x4b) ;; 75
615
(assert-equal? (tn) (integer->char 76) #\x4c) ;; 76
616
(assert-equal? (tn) (integer->char 77) #\x4d) ;; 77
617
(assert-equal? (tn) (integer->char 78) #\x4e) ;; 78
618
(assert-equal? (tn) (integer->char 79) #\x4f) ;; 79
619
(assert-equal? (tn) (integer->char 80) #\x50) ;; 80
620
(assert-equal? (tn) (integer->char 81) #\x51) ;; 81
621
(assert-equal? (tn) (integer->char 82) #\x52) ;; 82
622
(assert-equal? (tn) (integer->char 83) #\x53) ;; 83
623
(assert-equal? (tn) (integer->char 84) #\x54) ;; 84
624
(assert-equal? (tn) (integer->char 85) #\x55) ;; 85
625
(assert-equal? (tn) (integer->char 86) #\x56) ;; 86
626
(assert-equal? (tn) (integer->char 87) #\x57) ;; 87
627
(assert-equal? (tn) (integer->char 88) #\x58) ;; 88
628
(assert-equal? (tn) (integer->char 89) #\x59) ;; 89
629
(assert-equal? (tn) (integer->char 90) #\x5a) ;; 90
630
(assert-equal? (tn) (integer->char 91) #\x5b) ;; 91
631
(assert-equal? (tn) (integer->char 92) #\x5c) ;; 92
632
(assert-equal? (tn) (integer->char 93) #\x5d) ;; 93
633
(assert-equal? (tn) (integer->char 94) #\x5e) ;; 94
634
(assert-equal? (tn) (integer->char 95) #\x5f) ;; 95
635
(assert-equal? (tn) (integer->char 96) #\x60) ;; 96
636
(assert-equal? (tn) (integer->char 97) #\x61) ;; 97
637
(assert-equal? (tn) (integer->char 98) #\x62) ;; 98
638
(assert-equal? (tn) (integer->char 99) #\x63) ;; 99
639
(assert-equal? (tn) (integer->char 100) #\x64) ;; 100
640
(assert-equal? (tn) (integer->char 101) #\x65) ;; 101
641
(assert-equal? (tn) (integer->char 102) #\x66) ;; 102
642
(assert-equal? (tn) (integer->char 103) #\x67) ;; 103
643
(assert-equal? (tn) (integer->char 104) #\x68) ;; 104
644
(assert-equal? (tn) (integer->char 105) #\x69) ;; 105
645
(assert-equal? (tn) (integer->char 106) #\x6a) ;; 106
646
(assert-equal? (tn) (integer->char 107) #\x6b) ;; 107
647
(assert-equal? (tn) (integer->char 108) #\x6c) ;; 108
648
(assert-equal? (tn) (integer->char 109) #\x6d) ;; 109
649
(assert-equal? (tn) (integer->char 110) #\x6e) ;; 110
650
(assert-equal? (tn) (integer->char 111) #\x6f) ;; 111
651
(assert-equal? (tn) (integer->char 112) #\x70) ;; 112
652
(assert-equal? (tn) (integer->char 113) #\x71) ;; 113
653
(assert-equal? (tn) (integer->char 114) #\x72) ;; 114
654
(assert-equal? (tn) (integer->char 115) #\x73) ;; 115
655
(assert-equal? (tn) (integer->char 116) #\x74) ;; 116
656
(assert-equal? (tn) (integer->char 117) #\x75) ;; 117
657
(assert-equal? (tn) (integer->char 118) #\x76) ;; 118
658
(assert-equal? (tn) (integer->char 119) #\x77) ;; 119
659
(assert-equal? (tn) (integer->char 120) #\x78) ;; 120
660
(assert-equal? (tn) (integer->char 121) #\x79) ;; 121
661
(assert-equal? (tn) (integer->char 122) #\x7a) ;; 122
662
(assert-equal? (tn) (integer->char 123) #\x7b) ;; 123
663
(assert-equal? (tn) (integer->char 124) #\x7c) ;; 124
664
(assert-equal? (tn) (integer->char 125) #\x7d) ;; 125
665
(assert-equal? (tn) (integer->char 126) #\x7e) ;; 126
666
(assert-equal? (tn) (integer->char 127) #\x7f) ;; 127
668
(tn "R6RS hexadecimal char literal (capitalized hexadecimal)")
669
(assert-equal? (tn) (integer->char 0) #\x00) ;; 0
670
(assert-equal? (tn) (integer->char 1) #\x01) ;; 1
671
(assert-equal? (tn) (integer->char 2) #\x02) ;; 2
672
(assert-equal? (tn) (integer->char 3) #\x03) ;; 3
673
(assert-equal? (tn) (integer->char 4) #\x04) ;; 4
674
(assert-equal? (tn) (integer->char 5) #\x05) ;; 5
675
(assert-equal? (tn) (integer->char 6) #\x06) ;; 6
676
(assert-equal? (tn) (integer->char 7) #\x07) ;; 7
677
(assert-equal? (tn) (integer->char 8) #\x08) ;; 8
678
(assert-equal? (tn) (integer->char 9) #\x09) ;; 9
679
(assert-equal? (tn) (integer->char 10) #\x0A) ;; 10
680
(assert-equal? (tn) (integer->char 11) #\x0B) ;; 11
681
(assert-equal? (tn) (integer->char 12) #\x0C) ;; 12
682
(assert-equal? (tn) (integer->char 13) #\x0D) ;; 13
683
(assert-equal? (tn) (integer->char 14) #\x0E) ;; 14
684
(assert-equal? (tn) (integer->char 15) #\x0F) ;; 15
685
(assert-equal? (tn) (integer->char 16) #\x10) ;; 16
686
(assert-equal? (tn) (integer->char 17) #\x11) ;; 17
687
(assert-equal? (tn) (integer->char 18) #\x12) ;; 18
688
(assert-equal? (tn) (integer->char 19) #\x13) ;; 19
689
(assert-equal? (tn) (integer->char 20) #\x14) ;; 20
690
(assert-equal? (tn) (integer->char 21) #\x15) ;; 21
691
(assert-equal? (tn) (integer->char 22) #\x16) ;; 22
692
(assert-equal? (tn) (integer->char 23) #\x17) ;; 23
693
(assert-equal? (tn) (integer->char 24) #\x18) ;; 24
694
(assert-equal? (tn) (integer->char 25) #\x19) ;; 25
695
(assert-equal? (tn) (integer->char 26) #\x1A) ;; 26
696
(assert-equal? (tn) (integer->char 27) #\x1B) ;; 27
697
(assert-equal? (tn) (integer->char 28) #\x1C) ;; 28
698
(assert-equal? (tn) (integer->char 29) #\x1D) ;; 29
699
(assert-equal? (tn) (integer->char 30) #\x1E) ;; 30
700
(assert-equal? (tn) (integer->char 31) #\x1F) ;; 31
701
(assert-equal? (tn) (integer->char 32) #\x20) ;; 32
702
(assert-equal? (tn) (integer->char 33) #\x21) ;; 33
703
(assert-equal? (tn) (integer->char 34) #\x22) ;; 34
704
(assert-equal? (tn) (integer->char 35) #\x23) ;; 35
705
(assert-equal? (tn) (integer->char 36) #\x24) ;; 36
706
(assert-equal? (tn) (integer->char 37) #\x25) ;; 37
707
(assert-equal? (tn) (integer->char 38) #\x26) ;; 38
708
(assert-equal? (tn) (integer->char 39) #\x27) ;; 39
709
(assert-equal? (tn) (integer->char 40) #\x28) ;; 40
710
(assert-equal? (tn) (integer->char 41) #\x29) ;; 41
711
(assert-equal? (tn) (integer->char 42) #\x2A) ;; 42
712
(assert-equal? (tn) (integer->char 43) #\x2B) ;; 43
713
(assert-equal? (tn) (integer->char 44) #\x2C) ;; 44
714
(assert-equal? (tn) (integer->char 45) #\x2D) ;; 45
715
(assert-equal? (tn) (integer->char 46) #\x2E) ;; 46
716
(assert-equal? (tn) (integer->char 47) #\x2F) ;; 47
717
(assert-equal? (tn) (integer->char 48) #\x30) ;; 48
718
(assert-equal? (tn) (integer->char 49) #\x31) ;; 49
719
(assert-equal? (tn) (integer->char 50) #\x32) ;; 50
720
(assert-equal? (tn) (integer->char 51) #\x33) ;; 51
721
(assert-equal? (tn) (integer->char 52) #\x34) ;; 52
722
(assert-equal? (tn) (integer->char 53) #\x35) ;; 53
723
(assert-equal? (tn) (integer->char 54) #\x36) ;; 54
724
(assert-equal? (tn) (integer->char 55) #\x37) ;; 55
725
(assert-equal? (tn) (integer->char 56) #\x38) ;; 56
726
(assert-equal? (tn) (integer->char 57) #\x39) ;; 57
727
(assert-equal? (tn) (integer->char 58) #\x3A) ;; 58
728
(assert-equal? (tn) (integer->char 59) #\x3B) ;; 59
729
(assert-equal? (tn) (integer->char 60) #\x3C) ;; 60
730
(assert-equal? (tn) (integer->char 61) #\x3D) ;; 61
731
(assert-equal? (tn) (integer->char 62) #\x3E) ;; 62
732
(assert-equal? (tn) (integer->char 63) #\x3F) ;; 63
733
(assert-equal? (tn) (integer->char 64) #\x40) ;; 64
734
(assert-equal? (tn) (integer->char 65) #\x41) ;; 65
735
(assert-equal? (tn) (integer->char 66) #\x42) ;; 66
736
(assert-equal? (tn) (integer->char 67) #\x43) ;; 67
737
(assert-equal? (tn) (integer->char 68) #\x44) ;; 68
738
(assert-equal? (tn) (integer->char 69) #\x45) ;; 69
739
(assert-equal? (tn) (integer->char 70) #\x46) ;; 70
740
(assert-equal? (tn) (integer->char 71) #\x47) ;; 71
741
(assert-equal? (tn) (integer->char 72) #\x48) ;; 72
742
(assert-equal? (tn) (integer->char 73) #\x49) ;; 73
743
(assert-equal? (tn) (integer->char 74) #\x4A) ;; 74
744
(assert-equal? (tn) (integer->char 75) #\x4B) ;; 75
745
(assert-equal? (tn) (integer->char 76) #\x4C) ;; 76
746
(assert-equal? (tn) (integer->char 77) #\x4D) ;; 77
747
(assert-equal? (tn) (integer->char 78) #\x4E) ;; 78
748
(assert-equal? (tn) (integer->char 79) #\x4F) ;; 79
749
(assert-equal? (tn) (integer->char 80) #\x50) ;; 80
750
(assert-equal? (tn) (integer->char 81) #\x51) ;; 81
751
(assert-equal? (tn) (integer->char 82) #\x52) ;; 82
752
(assert-equal? (tn) (integer->char 83) #\x53) ;; 83
753
(assert-equal? (tn) (integer->char 84) #\x54) ;; 84
754
(assert-equal? (tn) (integer->char 85) #\x55) ;; 85
755
(assert-equal? (tn) (integer->char 86) #\x56) ;; 86
756
(assert-equal? (tn) (integer->char 87) #\x57) ;; 87
757
(assert-equal? (tn) (integer->char 88) #\x58) ;; 88
758
(assert-equal? (tn) (integer->char 89) #\x59) ;; 89
759
(assert-equal? (tn) (integer->char 90) #\x5A) ;; 90
760
(assert-equal? (tn) (integer->char 91) #\x5B) ;; 91
761
(assert-equal? (tn) (integer->char 92) #\x5C) ;; 92
762
(assert-equal? (tn) (integer->char 93) #\x5D) ;; 93
763
(assert-equal? (tn) (integer->char 94) #\x5E) ;; 94
764
(assert-equal? (tn) (integer->char 95) #\x5F) ;; 95
765
(assert-equal? (tn) (integer->char 96) #\x60) ;; 96
766
(assert-equal? (tn) (integer->char 97) #\x61) ;; 97
767
(assert-equal? (tn) (integer->char 98) #\x62) ;; 98
768
(assert-equal? (tn) (integer->char 99) #\x63) ;; 99
769
(assert-equal? (tn) (integer->char 100) #\x64) ;; 100
770
(assert-equal? (tn) (integer->char 101) #\x65) ;; 101
771
(assert-equal? (tn) (integer->char 102) #\x66) ;; 102
772
(assert-equal? (tn) (integer->char 103) #\x67) ;; 103
773
(assert-equal? (tn) (integer->char 104) #\x68) ;; 104
774
(assert-equal? (tn) (integer->char 105) #\x69) ;; 105
775
(assert-equal? (tn) (integer->char 106) #\x6A) ;; 106
776
(assert-equal? (tn) (integer->char 107) #\x6B) ;; 107
777
(assert-equal? (tn) (integer->char 108) #\x6C) ;; 108
778
(assert-equal? (tn) (integer->char 109) #\x6D) ;; 109
779
(assert-equal? (tn) (integer->char 110) #\x6E) ;; 110
780
(assert-equal? (tn) (integer->char 111) #\x6F) ;; 111
781
(assert-equal? (tn) (integer->char 112) #\x70) ;; 112
782
(assert-equal? (tn) (integer->char 113) #\x71) ;; 113
783
(assert-equal? (tn) (integer->char 114) #\x72) ;; 114
784
(assert-equal? (tn) (integer->char 115) #\x73) ;; 115
785
(assert-equal? (tn) (integer->char 116) #\x74) ;; 116
786
(assert-equal? (tn) (integer->char 117) #\x75) ;; 117
787
(assert-equal? (tn) (integer->char 118) #\x76) ;; 118
788
(assert-equal? (tn) (integer->char 119) #\x77) ;; 119
789
(assert-equal? (tn) (integer->char 120) #\x78) ;; 120
790
(assert-equal? (tn) (integer->char 121) #\x79) ;; 121
791
(assert-equal? (tn) (integer->char 122) #\x7A) ;; 122
792
(assert-equal? (tn) (integer->char 123) #\x7B) ;; 123
793
(assert-equal? (tn) (integer->char 124) #\x7C) ;; 124
794
(assert-equal? (tn) (integer->char 125) #\x7D) ;; 125
795
(assert-equal? (tn) (integer->char 126) #\x7E) ;; 126
796
(assert-equal? (tn) (integer->char 127) #\x7F) ;; 127
799
;; NOTE: #\x0e -style character is defined in R6RS(SRFI-75)
801
(assert-equal? (tn) #\nul (integer->char 0)) ;; 0
802
(assert-equal? (tn) #\x01 (integer->char 1)) ;; 1
803
(assert-equal? (tn) #\x02 (integer->char 2)) ;; 2
804
(assert-equal? (tn) #\x03 (integer->char 3)) ;; 3
805
(assert-equal? (tn) #\x04 (integer->char 4)) ;; 4
806
(assert-equal? (tn) #\x05 (integer->char 5)) ;; 5
807
(assert-equal? (tn) #\x06 (integer->char 6)) ;; 6
808
(assert-equal? (tn) #\alarm (integer->char 7)) ;; 7
809
(assert-equal? (tn) #\backspace (integer->char 8)) ;; 8
810
(assert-equal? (tn) #\tab (integer->char 9)) ;; 9
811
(assert-equal? (tn) #\newline (integer->char 10)) ;; 10
812
(assert-equal? (tn) #\vtab (integer->char 11)) ;; 11
813
(assert-equal? (tn) #\page (integer->char 12)) ;; 12
814
(assert-equal? (tn) #\return (integer->char 13)) ;; 13
815
(assert-equal? (tn) #\x0e (integer->char 14)) ;; 14
816
(assert-equal? (tn) #\x0f (integer->char 15)) ;; 15
817
(assert-equal? (tn) #\x10 (integer->char 16)) ;; 16
818
(assert-equal? (tn) #\x11 (integer->char 17)) ;; 17
819
(assert-equal? (tn) #\x12 (integer->char 18)) ;; 18
820
(assert-equal? (tn) #\x13 (integer->char 19)) ;; 19
821
(assert-equal? (tn) #\x14 (integer->char 20)) ;; 20
822
(assert-equal? (tn) #\x15 (integer->char 21)) ;; 21
823
(assert-equal? (tn) #\x16 (integer->char 22)) ;; 22
824
(assert-equal? (tn) #\x17 (integer->char 23)) ;; 23
825
(assert-equal? (tn) #\x18 (integer->char 24)) ;; 24
826
(assert-equal? (tn) #\x19 (integer->char 25)) ;; 25
827
(assert-equal? (tn) #\x1a (integer->char 26)) ;; 26
828
(assert-equal? (tn) #\esc (integer->char 27)) ;; 27
829
(assert-equal? (tn) #\x1c (integer->char 28)) ;; 28
830
(assert-equal? (tn) #\x1d (integer->char 29)) ;; 29
831
(assert-equal? (tn) #\x1e (integer->char 30)) ;; 30
832
(assert-equal? (tn) #\x1f (integer->char 31)) ;; 31
833
(assert-equal? (tn) #\space (integer->char 32)) ;; 32
834
(assert-equal? (tn) #\! (integer->char 33)) ;; 33
835
(assert-equal? (tn) #\" (integer->char 34)) ;; 34
836
(assert-equal? (tn) #\# (integer->char 35)) ;; 35
837
(assert-equal? (tn) #\$ (integer->char 36)) ;; 36
838
(assert-equal? (tn) #\% (integer->char 37)) ;; 37
839
(assert-equal? (tn) #\& (integer->char 38)) ;; 38
840
(assert-equal? (tn) #\' (integer->char 39)) ;; 39
841
(assert-equal? (tn) #\( (integer->char 40)) ;; 40
842
(assert-equal? (tn) #\) (integer->char 41)) ;; 41
843
(assert-equal? (tn) #\* (integer->char 42)) ;; 42
844
(assert-equal? (tn) #\+ (integer->char 43)) ;; 43
845
(assert-equal? (tn) #\, (integer->char 44)) ;; 44
846
(assert-equal? (tn) #\- (integer->char 45)) ;; 45
847
(assert-equal? (tn) #\. (integer->char 46)) ;; 46
848
(assert-equal? (tn) #\/ (integer->char 47)) ;; 47
849
(assert-equal? (tn) #\0 (integer->char 48)) ;; 48
850
(assert-equal? (tn) #\1 (integer->char 49)) ;; 49
851
(assert-equal? (tn) #\2 (integer->char 50)) ;; 50
852
(assert-equal? (tn) #\3 (integer->char 51)) ;; 51
853
(assert-equal? (tn) #\4 (integer->char 52)) ;; 52
854
(assert-equal? (tn) #\5 (integer->char 53)) ;; 53
855
(assert-equal? (tn) #\6 (integer->char 54)) ;; 54
856
(assert-equal? (tn) #\7 (integer->char 55)) ;; 55
857
(assert-equal? (tn) #\8 (integer->char 56)) ;; 56
858
(assert-equal? (tn) #\9 (integer->char 57)) ;; 57
859
(assert-equal? (tn) #\: (integer->char 58)) ;; 58
860
(assert-equal? (tn) #\; (integer->char 59)) ;; 59
861
(assert-equal? (tn) #\< (integer->char 60)) ;; 60
862
(assert-equal? (tn) #\= (integer->char 61)) ;; 61
863
(assert-equal? (tn) #\> (integer->char 62)) ;; 62
864
(assert-equal? (tn) #\? (integer->char 63)) ;; 63
865
(assert-equal? (tn) #\@ (integer->char 64)) ;; 64
866
(assert-equal? (tn) #\A (integer->char 65)) ;; 65
867
(assert-equal? (tn) #\B (integer->char 66)) ;; 66
868
(assert-equal? (tn) #\C (integer->char 67)) ;; 67
869
(assert-equal? (tn) #\D (integer->char 68)) ;; 68
870
(assert-equal? (tn) #\E (integer->char 69)) ;; 69
871
(assert-equal? (tn) #\F (integer->char 70)) ;; 70
872
(assert-equal? (tn) #\G (integer->char 71)) ;; 71
873
(assert-equal? (tn) #\H (integer->char 72)) ;; 72
874
(assert-equal? (tn) #\I (integer->char 73)) ;; 73
875
(assert-equal? (tn) #\J (integer->char 74)) ;; 74
876
(assert-equal? (tn) #\K (integer->char 75)) ;; 75
877
(assert-equal? (tn) #\L (integer->char 76)) ;; 76
878
(assert-equal? (tn) #\M (integer->char 77)) ;; 77
879
(assert-equal? (tn) #\N (integer->char 78)) ;; 78
880
(assert-equal? (tn) #\O (integer->char 79)) ;; 79
881
(assert-equal? (tn) #\P (integer->char 80)) ;; 80
882
(assert-equal? (tn) #\Q (integer->char 81)) ;; 81
883
(assert-equal? (tn) #\R (integer->char 82)) ;; 82
884
(assert-equal? (tn) #\S (integer->char 83)) ;; 83
885
(assert-equal? (tn) #\T (integer->char 84)) ;; 84
886
(assert-equal? (tn) #\U (integer->char 85)) ;; 85
887
(assert-equal? (tn) #\V (integer->char 86)) ;; 86
888
(assert-equal? (tn) #\W (integer->char 87)) ;; 87
889
(assert-equal? (tn) #\X (integer->char 88)) ;; 88
890
(assert-equal? (tn) #\Y (integer->char 89)) ;; 89
891
(assert-equal? (tn) #\Z (integer->char 90)) ;; 90
892
(assert-equal? (tn) #\[ (integer->char 91)) ;; 91
893
(assert-equal? (tn) #\\ (integer->char 92)) ;; 92
894
(assert-equal? (tn) #\] (integer->char 93)) ;; 93
895
(assert-equal? (tn) #\^ (integer->char 94)) ;; 94
896
(assert-equal? (tn) #\_ (integer->char 95)) ;; 95
897
(assert-equal? (tn) #\` (integer->char 96)) ;; 96
898
(assert-equal? (tn) #\a (integer->char 97)) ;; 97
899
(assert-equal? (tn) #\b (integer->char 98)) ;; 98
900
(assert-equal? (tn) #\c (integer->char 99)) ;; 99
901
(assert-equal? (tn) #\d (integer->char 100)) ;; 100
902
(assert-equal? (tn) #\e (integer->char 101)) ;; 101
903
(assert-equal? (tn) #\f (integer->char 102)) ;; 102
904
(assert-equal? (tn) #\g (integer->char 103)) ;; 103
905
(assert-equal? (tn) #\h (integer->char 104)) ;; 104
906
(assert-equal? (tn) #\i (integer->char 105)) ;; 105
907
(assert-equal? (tn) #\j (integer->char 106)) ;; 106
908
(assert-equal? (tn) #\k (integer->char 107)) ;; 107
909
(assert-equal? (tn) #\l (integer->char 108)) ;; 108
910
(assert-equal? (tn) #\m (integer->char 109)) ;; 109
911
(assert-equal? (tn) #\n (integer->char 110)) ;; 110
912
(assert-equal? (tn) #\o (integer->char 111)) ;; 111
913
(assert-equal? (tn) #\p (integer->char 112)) ;; 112
914
(assert-equal? (tn) #\q (integer->char 113)) ;; 113
915
(assert-equal? (tn) #\r (integer->char 114)) ;; 114
916
(assert-equal? (tn) #\s (integer->char 115)) ;; 115
917
(assert-equal? (tn) #\t (integer->char 116)) ;; 116
918
(assert-equal? (tn) #\u (integer->char 117)) ;; 117
919
(assert-equal? (tn) #\v (integer->char 118)) ;; 118
920
(assert-equal? (tn) #\w (integer->char 119)) ;; 119
921
(assert-equal? (tn) #\x (integer->char 120)) ;; 120
922
(assert-equal? (tn) #\y (integer->char 121)) ;; 121
923
(assert-equal? (tn) #\z (integer->char 122)) ;; 122
924
(assert-equal? (tn) #\{ (integer->char 123)) ;; 123
925
(assert-equal? (tn) #\| (integer->char 124)) ;; 124
926
(assert-equal? (tn) #\} (integer->char 125)) ;; 125
927
(assert-equal? (tn) #\~ (integer->char 126)) ;; 126
928
(assert-equal? (tn) #\delete (integer->char 127)) ;; 127
930
(tn "integer->char (string form)")
931
(assert-equal? (tn) "#\\nul" (i->chlit 0)) ;; 0
932
(assert-equal? (tn) "#\\x01" (i->chlit 1)) ;; 1
933
(assert-equal? (tn) "#\\x02" (i->chlit 2)) ;; 2
934
(assert-equal? (tn) "#\\x03" (i->chlit 3)) ;; 3
935
(assert-equal? (tn) "#\\x04" (i->chlit 4)) ;; 4
936
(assert-equal? (tn) "#\\x05" (i->chlit 5)) ;; 5
937
(assert-equal? (tn) "#\\x06" (i->chlit 6)) ;; 6
938
(assert-equal? (tn) "#\\alarm" (i->chlit 7)) ;; 7
939
(assert-equal? (tn) "#\\backspace" (i->chlit 8)) ;; 8
940
(assert-equal? (tn) "#\\tab" (i->chlit 9)) ;; 9
941
(assert-equal? (tn) "#\\newline" (i->chlit 10)) ;; 10
942
(assert-equal? (tn) "#\\vtab" (i->chlit 11)) ;; 11
943
(assert-equal? (tn) "#\\page" (i->chlit 12)) ;; 12
944
(assert-equal? (tn) "#\\return" (i->chlit 13)) ;; 13
945
(assert-equal? (tn) "#\\x0e" (i->chlit 14)) ;; 14
946
(assert-equal? (tn) "#\\x0f" (i->chlit 15)) ;; 15
947
(assert-equal? (tn) "#\\x10" (i->chlit 16)) ;; 16
948
(assert-equal? (tn) "#\\x11" (i->chlit 17)) ;; 17
949
(assert-equal? (tn) "#\\x12" (i->chlit 18)) ;; 18
950
(assert-equal? (tn) "#\\x13" (i->chlit 19)) ;; 19
951
(assert-equal? (tn) "#\\x14" (i->chlit 20)) ;; 20
952
(assert-equal? (tn) "#\\x15" (i->chlit 21)) ;; 21
953
(assert-equal? (tn) "#\\x16" (i->chlit 22)) ;; 22
954
(assert-equal? (tn) "#\\x17" (i->chlit 23)) ;; 23
955
(assert-equal? (tn) "#\\x18" (i->chlit 24)) ;; 24
956
(assert-equal? (tn) "#\\x19" (i->chlit 25)) ;; 25
957
(assert-equal? (tn) "#\\x1a" (i->chlit 26)) ;; 26
958
(assert-equal? (tn) "#\\esc" (i->chlit 27)) ;; 27
959
(assert-equal? (tn) "#\\x1c" (i->chlit 28)) ;; 28
960
(assert-equal? (tn) "#\\x1d" (i->chlit 29)) ;; 29
961
(assert-equal? (tn) "#\\x1e" (i->chlit 30)) ;; 30
962
(assert-equal? (tn) "#\\x1f" (i->chlit 31)) ;; 31
963
(assert-equal? (tn) "#\\space" (i->chlit 32)) ;; 32
964
(assert-equal? (tn) "#\\!" (i->chlit 33)) ;; 33
965
(assert-equal? (tn) "#\\\"" (i->chlit 34)) ;; 34
966
(assert-equal? (tn) "#\\#" (i->chlit 35)) ;; 35
967
(assert-equal? (tn) "#\\$" (i->chlit 36)) ;; 36
968
(assert-equal? (tn) "#\\%" (i->chlit 37)) ;; 37
969
(assert-equal? (tn) "#\\&" (i->chlit 38)) ;; 38
970
(assert-equal? (tn) "#\\'" (i->chlit 39)) ;; 39
971
(assert-equal? (tn) "#\\(" (i->chlit 40)) ;; 40
972
(assert-equal? (tn) "#\\)" (i->chlit 41)) ;; 41
973
(assert-equal? (tn) "#\\*" (i->chlit 42)) ;; 42
974
(assert-equal? (tn) "#\\+" (i->chlit 43)) ;; 43
975
(assert-equal? (tn) "#\\," (i->chlit 44)) ;; 44
976
(assert-equal? (tn) "#\\-" (i->chlit 45)) ;; 45
977
(assert-equal? (tn) "#\\." (i->chlit 46)) ;; 46
978
(assert-equal? (tn) "#\\/" (i->chlit 47)) ;; 47
979
(assert-equal? (tn) "#\\0" (i->chlit 48)) ;; 48
980
(assert-equal? (tn) "#\\1" (i->chlit 49)) ;; 49
981
(assert-equal? (tn) "#\\2" (i->chlit 50)) ;; 50
982
(assert-equal? (tn) "#\\3" (i->chlit 51)) ;; 51
983
(assert-equal? (tn) "#\\4" (i->chlit 52)) ;; 52
984
(assert-equal? (tn) "#\\5" (i->chlit 53)) ;; 53
985
(assert-equal? (tn) "#\\6" (i->chlit 54)) ;; 54
986
(assert-equal? (tn) "#\\7" (i->chlit 55)) ;; 55
987
(assert-equal? (tn) "#\\8" (i->chlit 56)) ;; 56
988
(assert-equal? (tn) "#\\9" (i->chlit 57)) ;; 57
989
(assert-equal? (tn) "#\\:" (i->chlit 58)) ;; 58
990
(assert-equal? (tn) "#\\;" (i->chlit 59)) ;; 59
991
(assert-equal? (tn) "#\\<" (i->chlit 60)) ;; 60
992
(assert-equal? (tn) "#\\=" (i->chlit 61)) ;; 61
993
(assert-equal? (tn) "#\\>" (i->chlit 62)) ;; 62
994
(assert-equal? (tn) "#\\?" (i->chlit 63)) ;; 63
995
(assert-equal? (tn) "#\\@" (i->chlit 64)) ;; 64
996
(assert-equal? (tn) "#\\A" (i->chlit 65)) ;; 65
997
(assert-equal? (tn) "#\\B" (i->chlit 66)) ;; 66
998
(assert-equal? (tn) "#\\C" (i->chlit 67)) ;; 67
999
(assert-equal? (tn) "#\\D" (i->chlit 68)) ;; 68
1000
(assert-equal? (tn) "#\\E" (i->chlit 69)) ;; 69
1001
(assert-equal? (tn) "#\\F" (i->chlit 70)) ;; 70
1002
(assert-equal? (tn) "#\\G" (i->chlit 71)) ;; 71
1003
(assert-equal? (tn) "#\\H" (i->chlit 72)) ;; 72
1004
(assert-equal? (tn) "#\\I" (i->chlit 73)) ;; 73
1005
(assert-equal? (tn) "#\\J" (i->chlit 74)) ;; 74
1006
(assert-equal? (tn) "#\\K" (i->chlit 75)) ;; 75
1007
(assert-equal? (tn) "#\\L" (i->chlit 76)) ;; 76
1008
(assert-equal? (tn) "#\\M" (i->chlit 77)) ;; 77
1009
(assert-equal? (tn) "#\\N" (i->chlit 78)) ;; 78
1010
(assert-equal? (tn) "#\\O" (i->chlit 79)) ;; 79
1011
(assert-equal? (tn) "#\\P" (i->chlit 80)) ;; 80
1012
(assert-equal? (tn) "#\\Q" (i->chlit 81)) ;; 81
1013
(assert-equal? (tn) "#\\R" (i->chlit 82)) ;; 82
1014
(assert-equal? (tn) "#\\S" (i->chlit 83)) ;; 83
1015
(assert-equal? (tn) "#\\T" (i->chlit 84)) ;; 84
1016
(assert-equal? (tn) "#\\U" (i->chlit 85)) ;; 85
1017
(assert-equal? (tn) "#\\V" (i->chlit 86)) ;; 86
1018
(assert-equal? (tn) "#\\W" (i->chlit 87)) ;; 87
1019
(assert-equal? (tn) "#\\X" (i->chlit 88)) ;; 88
1020
(assert-equal? (tn) "#\\Y" (i->chlit 89)) ;; 89
1021
(assert-equal? (tn) "#\\Z" (i->chlit 90)) ;; 90
1022
(assert-equal? (tn) "#\\[" (i->chlit 91)) ;; 91
1023
(assert-equal? (tn) "#\\\\" (i->chlit 92)) ;; 92
1024
(assert-equal? (tn) "#\\]" (i->chlit 93)) ;; 93
1025
(assert-equal? (tn) "#\\^" (i->chlit 94)) ;; 94
1026
(assert-equal? (tn) "#\\_" (i->chlit 95)) ;; 95
1027
(assert-equal? (tn) "#\\`" (i->chlit 96)) ;; 96
1028
(assert-equal? (tn) "#\\a" (i->chlit 97)) ;; 97
1029
(assert-equal? (tn) "#\\b" (i->chlit 98)) ;; 98
1030
(assert-equal? (tn) "#\\c" (i->chlit 99)) ;; 99
1031
(assert-equal? (tn) "#\\d" (i->chlit 100)) ;; 100
1032
(assert-equal? (tn) "#\\e" (i->chlit 101)) ;; 101
1033
(assert-equal? (tn) "#\\f" (i->chlit 102)) ;; 102
1034
(assert-equal? (tn) "#\\g" (i->chlit 103)) ;; 103
1035
(assert-equal? (tn) "#\\h" (i->chlit 104)) ;; 104
1036
(assert-equal? (tn) "#\\i" (i->chlit 105)) ;; 105
1037
(assert-equal? (tn) "#\\j" (i->chlit 106)) ;; 106
1038
(assert-equal? (tn) "#\\k" (i->chlit 107)) ;; 107
1039
(assert-equal? (tn) "#\\l" (i->chlit 108)) ;; 108
1040
(assert-equal? (tn) "#\\m" (i->chlit 109)) ;; 109
1041
(assert-equal? (tn) "#\\n" (i->chlit 110)) ;; 110
1042
(assert-equal? (tn) "#\\o" (i->chlit 111)) ;; 111
1043
(assert-equal? (tn) "#\\p" (i->chlit 112)) ;; 112
1044
(assert-equal? (tn) "#\\q" (i->chlit 113)) ;; 113
1045
(assert-equal? (tn) "#\\r" (i->chlit 114)) ;; 114
1046
(assert-equal? (tn) "#\\s" (i->chlit 115)) ;; 115
1047
(assert-equal? (tn) "#\\t" (i->chlit 116)) ;; 116
1048
(assert-equal? (tn) "#\\u" (i->chlit 117)) ;; 117
1049
(assert-equal? (tn) "#\\v" (i->chlit 118)) ;; 118
1050
(assert-equal? (tn) "#\\w" (i->chlit 119)) ;; 119
1051
(assert-equal? (tn) "#\\x" (i->chlit 120)) ;; 120
1052
(assert-equal? (tn) "#\\y" (i->chlit 121)) ;; 121
1053
(assert-equal? (tn) "#\\z" (i->chlit 122)) ;; 122
1054
(assert-equal? (tn) "#\\{" (i->chlit 123)) ;; 123
1055
(assert-equal? (tn) "#\\|" (i->chlit 124)) ;; 124
1056
(assert-equal? (tn) "#\\}" (i->chlit 125)) ;; 125
1057
(assert-equal? (tn) "#\\~" (i->chlit 126)) ;; 126
1058
(assert-equal? (tn) "#\\delete" (i->chlit 127)) ;; 127
added
removed
sigscheme/test/test-char.scm
