Commit dd7dc715 authored by Christopher Riesbeck's avatar Christopher Riesbeck

added Yian Su's test cases

parent 844a4609
......@@ -5,6 +5,7 @@
;;; Update history:
;;;
;;; 12-11-2018 added Yian Su's tests cases for INTERSECT-SEGMENTS [CKR]
;;; 11-14-2018 added boundary test to EVERY-RANGE [CKR]
;;; 11-14-2018 added variant test case to SOLVE [CKR]
;;; 10-07-2018 added empty range test to EVERY-RANGE [CKR]
......@@ -884,6 +885,11 @@ d)</pre> pre</html>"))
(multiple-value-list (intersect-segments 0 0 2 2 2 2 2 2)))
(assert-equal '(nil)
(multiple-value-list (intersect-segments 0 0 1 1 2 2 2 2)))
(assert-equal '(nil)
(multiple-value-list (intersect-segments 0 0 1 0 2 0 3 0)))
(assert-equality segment-equals
'(1 0 2 0)
(multiple-value-list (intersect-segments 0 0 2 0 1 0 3 0)))
)
......
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