Commit efa99087 authored by pfdietz's avatar pfdietz

More tests for evenp, oddp.

parent 474025f9
......@@ -62,4 +62,18 @@
collect x))
nil)
\ No newline at end of file
(deftest evenp.5
(notnot-mv (evenp 0))
t)
(deftest evenp.6
(evenp 1)
nil)
(deftest evenp.7
(notnot-mv (evenp 100000000000000000000000000000000))
t)
(deftest evenp.8
(evenp 100000000000000000000000000000001)
nil)
......@@ -62,4 +62,20 @@
collect x))
nil)
(deftest oddp.5
(notnot-mv (oddp 1))
t)
(deftest oddp.6
(oddp 0)
nil)
(deftest oddp.7
(notnot-mv (oddp 100000000000000000000000000000001))
t)
(deftest oddp.8
(oddp 100000000000000000000000000000000)
nil)
\ No newline at end of file
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