1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(define p (test "test"))
(if (not (string=? p "test"))
(error "test failed!"))
(set! p (test-pconst "test"))
(if (not (string=? p "test_pconst"))
(error "test_pconst failed!"))
(define f (new-Foo))
(set! p (Foo-test f "test"))
(if (not (string=? p "test"))
(error "member-test failed!"))
(set! p (Foo-test-pconst f "test"))
(if (not (string=? p "test_pconst"))
(error "member-test_pconst failed!"))
(set! p (Foo-test-constm f "test"))
(if (not (string=? p "test_constmethod"))
(error "member-test_constm failed!"))
(set! p (Foo-test-pconstm f "test"))
(if (not (string=? p "test_pconstmethod"))
(error "member-test_pconstm failed!"))
(exit 0)
|
