tests-3.2.ss

#lang scheme

(require "helper.ss")

(add-tests-with-string-output "immediate constants"
			      [#f => "#f"]
			      [#t => "#t"]
			      [() => "()"]
;			      [#\tab => "#\\tab"]
;			      [#\newline => "#\\newline"]
;			      [#\return => "#\\return"]
;			      [#\space => "#\\space"]
			      [#\! => "#\\!"]
			      [#\" => "#\\\""]
			      [#\# => "#\\#"]
			      [#\$ => "#\\$"]
			      [#\% => "#\\%"]
			      [#\& => "#\\&"]
			      [#\' => "#\\'"]
			      [#\( => "#\\("]
			      [#\) => "#\\)"]
			      [#\* => "#\\*"]
			      [#\+ => "#\\+"]
			      [#\, => "#\\,"]
			      [#\- => "#\\-"]
			      [#\. => "#\\."]
			      [#\/ => "#\\/"]
			      [#\0 => "#\\0"]
			      [#\9 => "#\\9"]
			      [#\: => "#\\:"]
			      [#\; => "#\\;"]
			      [#\< => "#\\<"]
			      [#\= => "#\\="]
			      [#\> => "#\\>"]
			      [#\? => "#\\?"]
			      [#\@ => "#\\@"]
			      [#\A => "#\\A"]
			      [#\Z => "#\\Z"]
			      [#\[ => "#\\["]
			      [#\\ => "#\\\\"]
			      [#\] => "#\\]"]
			      [#\^ => "#\\^"]
			      [#\_ => "#\\_"]
			      [#\` => "#\\`"]
			      [#\a => "#\\a"]
			      [#\z => "#\\z"]
			      [#\{ => "#\\{"]
			      [#\| => "#\\|"]
			      [#\} => "#\\}"]
			      [#\~ => "#\\~"]
			      )