blob: 07bb8556f70b67fd5379472c0a613a15dfd6ca0b (
plain)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
(define-macro (check func val test)
(cons 'begin
(map
(lambda (x)
`(if (not (,test (,(string->symbol (string-append x func)) ,val) ,val))
(error ,(string-append "Error in test " x func))))
(list "in-" "inr-" "out-" "outr-" "inout-" "inoutr-"))))
(define (=~ a b)
(< (abs (- a b)) 1e-5))
(check "bool" #t and)
(check "int" -2 =)
(check "long" -32 =)
(check "short" -15 =)
(check "uint" 75 =)
(check "ushort" 123 =)
(check "ulong" 462 =)
;(check "uchar" 16 =)
;(check "schar" -53 =)
(check "float" 4.3 =~)
(check "double" -175.42 =~)
(check "longlong" 1634 =)
(check "ulonglong" 6432 =)
;; The checking of inoutr-int2 and out-foo is done in the individual
;; language runme scripts, since how multiple values are returned
;; differs between scheme variants.
;(call-with-values (lambda () (inoutr-int2 3 -2))
; (lambda (a b)
; (if (not (and (= a 3) (= b -2)))
; (error "Error in inoutr-int2"))))
;(call-with-values (lambda () (out-foo 4))
; (lambda (a b)
; (if (not (and (= (slot-ref a 'a) 4) (= b 8)))
; (error "Error in out-foo"))))
;(let ((lst (inoutr-int2 3 -2)))
; (if (not (and (= (car lst) 3) (= (cadr lst) -2)))
; (error "Error in inoutr-int2")))
;(let ((lst (out-foo 4)))
; (if (not (and (= (slot-ref (car lst) 'a) 4) (= (cadr lst) 8)))
; (error "Error in out-foo")))
|
