blob: 0b03b285aef510ba881224658274f0c9bb20cf6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(define f (new-Foo))
(if (not (= (Foo-test f 3) 1))
(error "test integer bad"))
(if (not (= (Foo-test f "hello") 2))
(error "test string bad"))
(if (not (= (Foo-test f 3.5 2.5) 6.0))
(error "test reals bad"))
(exit 0)
|
