;   ROT TESTS
(define expect!
 ;
 ; PANIC if evaluation matches.
 ;
 (stir (e)
  (cond
  e nil
  false (panic))))
(define notexpect!
 ;
 ; in contrast:
 ; PANIC if evaluation matches.
 ;
 (stir (e)
  (cond
   e (panic))))

 ; BASIC EQUALNESS TESTS
(expect! (eq? () ()))
(notexpect! (id? ()))
(expect! (= (Fp (F 0 1 2) 2) 2))
(expect! (= x.F (+ o.10 o.7) 15))
(expect! (= (+ b.111 b.1000) 15))

 ; LONG OPERATION
(expect! (= (* 2 2) 4))
(expect! (= (l/ 1 1) 1))
(expect! (= (l/ 1 2) 0))
(expect! (= (u/ 1 2) 1))

 ; LIST EXPANSION
(expect! (pair? (cons)))
(expect! (= (cadr (~ 1 2 3)) 2))

(end)

; Wir haben eure Bitte zur Erweiterung
;  der Hüllentests erhalten:

; und... ich überbringe euch wirklich nur ungern schlechte
; Nachrichten, Jungs...
; ...es gab Gehaltskürzungen,
;    das Budget reicht leider nicht mehr aus
; für die neuen Tests...

; Aber wir wissen;
;  Ihr werdet es auch so schaffen!