summaryrefslogtreecommitdiffstats
path: root/tests/012/typecase.tl
blob: 97b3da48679ea65f406afd375df9fc0d0d37662b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(load "../common")

(mtest
  (typecase) :error
  (typecase nil) nil
  (typecase nil a) :error
  (typecase 0 (symbol 1)) nil
  (typecase 0 (integer 1)) 1
  (typecase 0 (integer 1) (integer 2)) 1
  (typecase 0 (t 3) (integer 1)) 3)

(mtest
  (etypecase) :error
  (etypecase nil) :error
  (etypecase nil a) :error
  (etypecase 0 (string 1)) :error
  (etypecase 0 (string 1) (integer 2)) 2
  (etypecase 0 (string 1) (t 2)) 2)