ikarus/src/old-tests/tests-2.8-req.scm

24 lines
640 B
Scheme

(add-tests-with-string-output "symbols"
[(symbol? 'foo) => "#t\n"]
[(symbol? '()) => "#f\n"]
[(symbol? "") => "#f\n"]
[(symbol? '(1 2)) => "#f\n"]
[(symbol? '#()) => "#f\n"]
[(symbol? (lambda (x) x)) => "#f\n"]
[(symbol? 'foo) => "#t\n"]
[(string? 'foo) => "#f\n"]
[(pair? 'foo) => "#f\n"]
[(vector? 'foo) => "#f\n"]
[(null? 'foo) => "#f\n"]
[(boolean? 'foo) => "#f\n"]
[(procedure? 'foo) => "#f\n"]
[(eq? 'foo 'bar) => "#f\n"]
[(eq? 'foo 'foo) => "#t\n"]
['foo => "foo\n"]
['(foo bar baz) => "(foo bar baz)\n"]
['(foo foo foo foo foo foo foo foo foo foo foo)
=> "(foo foo foo foo foo foo foo foo foo foo foo)\n"]
)