test-suite/tests/reader.test

172       (string-set! str 0 #\H)
224             (set-port-filename! port "foo.scm")
333   (with-test-prefix "r6rs-hex-escapes"
334       (pass-if-exception "non-hex char in two-digit hex-escape"
336       (with-read-options '(r6rs-hex-escapes)
340     (pass-if-exception "non-hex char in four-digit hex-escape"
342       (with-read-options '(r6rs-hex-escapes)
346     (pass-if-exception "non-hex char in six-digit hex-escape"
348       (with-read-options '(r6rs-hex-escapes)
352     (pass-if-exception "no semicolon at termination of one-digit hex-escape"
354       (with-read-options '(r6rs-hex-escapes)
358     (pass-if-exception "no semicolon at termination of three-digit hex-escape"
360       (with-read-options '(r6rs-hex-escapes)
364     (pass-if "two-digit hex escape"
366        (with-read-options '(r6rs-hex-escapes)
369        (integer->char #xff)))
371     (pass-if "four-digit hex escape"
373        (with-read-options '(r6rs-hex-escapes)
376        (integer->char #x0100)))
378     (pass-if "six-digit hex escape"
380        (with-read-options '(r6rs-hex-escapes)
383        (integer->char #x010300)))
387        (with-read-options '(r6rs-hex-escapes)
394                          (map integer->char '(#x8 ; backspace
400               (s2 (with-read-options '(r6rs-hex-escapes)
410        (with-read-options '(r6rs-hex-escapes)
413                  (s1 (apply string (map integer->char
415              (set-port-encoding! pt "ASCII")
416              (set-port-conversion-strategy! pt 'escape)
421     (pass-if "one-digit hex escape"
423             (integer->char #x0A)))
425     (pass-if "two-digit hex escape"
427             (integer->char #xFF)))
429     (pass-if "four-digit hex escape"
431             (integer->char #xFF)))
433     (pass-if "eight-digit hex escape"
435             (integer->char #x6587)))
439        (with-read-options '(r6rs-hex-escapes)
443                (write (integer->char #x80))))))
481     (pass-if-equal "hex string escapes"