blob: 5d7290d39bf36560c86f4efefff65c68fa9b2714 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(assert-error (if (error "") 1 2))
(let ((i 0))
(while #t
(if (> i 4)
(break)
nil)
(incq i))
(assert (= i 5)))
(let ((i 0))
(while #t
(if (> i 4)
(let () (break))
nil)
(incq i))
(assert (= i 5)))
(let ((flag 0)
(i 0))
(while (< i 10)
(incq i)
(continue)
(setq flag 1))
(assert (= i 10))
(assert (= flag 0)))
(assert-error (funcall (lambda () (break))))
(assert-error (funcall (lambda () (continue))))
(assert (= 1 (funcall (lambda () (return 1)))))
(assert (= 1 (funcall (lambda () (while #t (return 1))))))
(assert (= 1 (funcall (lambda () (let () (return 1))))))
(assert (= 1 (funcall (lambda () (let ((x (return 1))) (return 2))))))
|
