12 lines
183 B
Scheme
12 lines
183 B
Scheme
(define f (new-Foo))
|
|
(define b (new-Bar))
|
|
|
|
(define x (Foo-blah f))
|
|
(define y (Bar-blah b))
|
|
|
|
(define a (do-test y))
|
|
(if (not (string=? a "Bar::test"))
|
|
(error "Failed!"))
|
|
|
|
(exit 0)
|