#lang s-exp "../../lang/wescheme.ss" (printf "exercise-control.rkt\n") (check-expect (if true 'ok 'not-ok) 'ok) (check-expect (if false 'not-ok 'ok) 'ok) (check-expect (cond [true 'ok] [else 'not-ok]) 'ok) (check-expect (cond [false 'not-ok] [else 'ok]) 'ok) (check-expect (case 42 [(1) 'not-ok] [(2) 'not-ok] [(42) 'ok]) 'ok) (check-expect (case 42 [(1) 'not-ok] [(2) 'not-ok] [(42) 'ok]) 'ok)