Commit 2177c597 authored by pfdietz's avatar pfdietz
Browse files

Added tests requested by Christophe Rhodes for value accumulation/iteration...

Added tests requested by Christophe Rhodes for value accumulation/iteration termination error cases.
parent 2582760f
......@@ -158,6 +158,13 @@
always (< i 20)))
program-error)
(deftest loop.12.error.50a
(classify-error
(loop for i from 1 to 10
always (< i 20)
collect i))
program-error)
(deftest loop.12.error.51
(classify-error
(loop for i from 1 to 10
......@@ -165,6 +172,13 @@
never (> i 20)))
program-error)
(deftest loop.12.error.51a
(classify-error
(loop for i from 1 to 10
never (> i 20)
collect i))
program-error)
(deftest loop.12.error.52
(classify-error
(loop for i from 1 to 10
......@@ -172,22 +186,49 @@
thereis (> i 20)))
program-error)
(deftest loop.12.error.52a
(classify-error
(loop for i from 1 to 10
thereis (> i 20)
collect i))
program-error)
;;; Non-error cases
(deftest loop.12.53
(loop for i from 1 to 10
collect i into foo
always (< i 20))
t)
(deftest loop.12.53a
(loop for i from 1 to 10
always (< i 20)
collect i into foo)
t)
(deftest loop.12.54
(loop for i from 1 to 10
collect i into foo
never (> i 20))
t)
(deftest loop.12.54a
(loop for i from 1 to 10
never (> i 20)
collect i into foo)
t)
(deftest loop.12.55
(loop for i from 1 to 10
collect i into foo
thereis i)
1)
(deftest loop.12.55a
(loop for i from 1 to 10
thereis i
collect i into foo)
1)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment