unit tests: more vm ops corner cases

Sigrid Solveig Haflínudóttir committed 12 months ago

Commit ec7ffe91 parent 7d115e81 file · +6 −0Browse files

Unified · Split

 (assert-fail ((λ (x) x)))
 (assert-fail ((λ (x y . z) z) 1))
 (assert-fail (car 'x) type-error)
+(assert-fail (cdr 1) type-error)
+(assert-fail (cadr 1) type-error)
+(assert-fail (set-car! NIL 1) type-error)
+(assert-fail (set-cdr! NIL 1) type-error)
 (assert-fail gjegherqpfdf___trejif unbound-error)
 ; long argument lists
                     (assert (and (not (int? f64)) (>= f64 0.0) (<= f64 1.0)))
                     (assert (and (int? i) (>= i 0) (< i 10)))
                     (assert (and (not (int? f)) (>= f 0.0) (< f 10.0))))))
+(assert (and (bound? T) (bound? NIL)))

Keyboard shortcuts