blob: 101c0dabe06c72483c59259e6bd9c33fe5dd832f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(define f (new-Foo))
(if (not (= (Foo-hola-get f) (Foo-Hello)))
(error "Error 1"))
(Foo-hola-set f (Foo-Hi))
(if (not (= (Foo-hola-get f) (Foo-Hi)))
(error "Error 2"))
(Foo-hola-set f (Foo-Hello))
(if (not (= (Foo-hola-get f) (Foo-Hello)))
(error "Error 3"))
(hi (Hello))
(if (not (= (hi) (Hello)))
(error "Error 4"))
(exit 0)
|
