; CSC 324 winter 2006
; A2 question 3 (cond*) test cases

; Each displays a, returns 1
(cond* ((< 1 2) (display 'a) 1 break)
(cond* ((< 1 2) (display 'a) 1)

; Each displays a, returns 1
(cond* ((< 1 2) (display 'a) 1 break)
       (#t (display 'b) 2))
(cond* ((< 1 2) (display 'a) 1 break)
       (#t (display 'b) 2 break))

; Each displays ab, returns 2
(cond* ((< 1 2) (display 'a) 1)
       ((> 1 2) (display 'b) 2))
(cond* ((< 1 2) (display 'a) 1)
       ((> 1 2) (display 'b) 2 break))

; Display b, return 1
(cond* ((> 1 2) (display 'a))
       ((< 1 2) (display 'b) 1 break)
       (#t (display 'c) 2))

; Display bc, return 2
(cond* ((> 1 2) (display 'a))
       ((< 1 2) (display 'b) 1)
       ((> 1 2) (display 'c) 2))

; Display bcd, return 3
(cond* ((> 1 2) (display 'a))
       ((< 1 2) (display 'b) 1)
       ((> 1 2) (display 'c) 2)
       ((> 1 2) (display 'd) 3))

; Display c, return 3
(cond* (#f (display 'a) 1)
       (#f (display 'b) 2)
       (else (display 'c) 3))

; Display bc, return 3
(cond* (#f (display 'a) 1)
       (else (display 'b) 2)
       (#f (display 'c) 3))

; Display b, return 1
(cond* ((> 1 2) (display 'a))
       ((display 'b) 1))