Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: lion
Fetching contributors…

Cannot retrieve contributors at this time

179 lines (166 sloc) 7.527 kB
;; test_operators.nu
;; tests for Nu operators.
;;
;; Copyright (c) 2007 Tim Burks, Radtastical Inc.
(class TestOperators is NuTestCase
(- (id) testMinOperator is
(assert_equal -5 (min (* 5 -1) 10 20 30 40 50000))
(assert_equal 40.0 (min 40.0 400.0 19992.5))
(assert_equal "a" (min "a" "b" "c" "d" "e"))
(assert_equal 'x' (min 'x' 'y' 'z')))
(- (id) testMaxOperator is
(assert_equal 50000 (max -5 10 20 30 40 (* 500 100)))
(assert_equal 19992.5 (max 40.0 400.0 19992.5))
(assert_equal "e" (max "a" "b" "c" "d" "e"))
(assert_equal 'z' (max 'x' 'y' 'z')))
(- (id) testAddOperator is
(assert_equal 3 (+ 1 1 -5 6))
(assert_equal "hello, world" (+ "hello" "," " " "world")))
(- (id) testSubtractOperator is
(assert_equal -3 (- 3))
(assert_equal 1 (- 4 2 1)))
;; turn this off by default; it's a good test, but it requires manual intervention
(- (id) dontTestTheGetsOperator is
(assert_not_equal nil gets)
(puts "\nPlease don't enter anything.")
(assert_equal (gets) ""))
(- (id) testIfOperator is
(set x 0)
(assert_equal 'yes (if t 'yes))
(assert_equal 'yes (if t (set x 1) 'yes))
(assert_equal x 1)
(assert_equal 'yes (if t 'yes (else (set x 'error))))
(assert_equal x 1)
(assert_equal 'yes (if t (then 'yes)))
(assert_equal 'yes (if t (then (set x 2) 'yes)))
(assert_equal x 2)
(assert_equal 'yes (if t (then 'yes) (else (set x 'error))))
(assert_equal x 2)
(assert_equal 'no (if nil (else 'no)))
(assert_equal 'no (if nil (else (set x 3) 'no)))
(assert_equal x 3)
(assert_equal 'no (if nil (set x 'error) (else 'no)))
(assert_equal x 3)
(assert_equal 'no (if nil (then (set x 'error)) (else 'no)))
(assert_equal x 3))
(- (id) testIfSugaredOperator is
(set x 0)
(assert_equal 'yes (if t then 'yes))
(assert_equal 'yes (if t then (set x 1) 'yes))
(assert_equal x 1)
(assert_equal 'yes (if t then 'yes else (set x 'error)))
(assert_equal x 1)
(assert_equal 'yes (if t then 'yes (else (set x 'error))))
(assert_equal x 1)
(assert_equal 'no (if nil else 'no))
(assert_equal 'no (if nil else (set x 2) 'no))
(assert_equal x 2)
(assert_equal 'no (if nil (set x 'error) else 'no))
(assert_equal x 2)
(assert_equal 'no (if nil then (set x 'error) else 'no))
(assert_equal x 2)
(assert_equal 'no (if nil (then (set x 'error)) else 'no))
(assert_equal x 2))
(- (id) testUnlessOperator is
(set x 0)
(assert_equal 'yes (unless nil 'yes))
(assert_equal 'yes (unless nil (set x 1) 'yes))
(assert_equal x 1)
(assert_equal 'yes (unless nil 'yes (else (set x 'error))))
(assert_equal x 1)
(assert_equal 'yes (unless nil (then 'yes)))
(assert_equal 'yes (unless nil (then (set x 2) 'yes)))
(assert_equal x 2)
(assert_equal 'yes (unless nil (then 'yes) (else (set x 'error))))
(assert_equal x 2)
(assert_equal 'no (unless t (else 'no)))
(assert_equal 'no (unless t (else (set x 3) 'no)))
(assert_equal x 3)
(assert_equal 'no (unless t (set x 'error) (else 'no)))
(assert_equal x 3)
(assert_equal 'no (unless t (then (set x 'error)) (else 'no)))
(assert_equal x 3))
(- (id) testUnlessSugaredOperator is
(set x 0)
(assert_equal 'yes (unless nil then 'yes))
(assert_equal 'yes (unless nil then (set x 1) 'yes))
(assert_equal x 1)
(assert_equal 'yes (unless nil then 'yes else (set x 'error)))
(assert_equal x 1)
(assert_equal 'yes (unless nil then 'yes (else (set x 'error))))
(assert_equal x 1)
(assert_equal 'no (unless t else 'no))
(assert_equal 'no (unless t else (set x 2) 'no))
(assert_equal x 2)
(assert_equal 'no (unless t (set x 'error) else 'no))
(assert_equal x 2)
(assert_equal 'no (unless t then (set x 'error) else 'no))
(assert_equal x 2)
(assert_equal 'no (unless t (then (set x 'error)) else 'no))
(assert_equal x 2))
;; support for elseif was removed because elseif is easily confused with elif (Python)
;; and elsif (Ruby), etc. and because cond does the job anyway.
(- (id) dontTestIfElseifOperator is
(set x 1)
(set y 'true)
(assert_equal 'one (if (eq x 0) 'none
elseif (eq x 1) 'one
else 'many))
(assert_equal 'one (if (eq x 0) 'none
elseif (eq x 2) 'two
elseif (eq x 1) 'one
else 'more))
(assert_equal 'one (if (eq x 0) (set y 'none)
elseif (eq x 1) 'one
else (set y 'many)))
(assert_equal y 'true)
(assert_equal 'one (if (eq x 0) (set y 'none)
elseif (eq x 2) (set y 'two)
elseif (eq x 1) 'one
else (set y 'more)))
(assert_equal y 'true)
(assert_equal 'one (if (eq x 0) 'none
elseif (eq x 1)
(set y 'one)
'one
else 'many))
(assert_equal y 'one)
(assert_equal 'one (if (eq x 0) 'none
elseif (eq x 2) 'two
elseif (eq x 1)
(set y 'two)
'one
else 'more))
(assert_equal y 'two))
(- (id) dontTestUnlessElseifOperator is
(set x 1)
(set y 'true)
(assert_equal 'one (unless ((not (eq x 0))) 'none
elseif (eq x 1) 'one
else 'many))
(assert_equal 'one (unless ((not (eq x 0))) 'none
elseif (eq x 2) 'two
elseif (eq x 1) 'one
else 'more))
(assert_equal 'one (unless ((not (eq x 0))) (set y 'none)
elseif (eq x 1) 'one
else (set y 'many)))
(assert_equal y 'true)
(assert_equal 'one (unless ((not (eq x 0))) (set y 'none)
elseif (eq x 2) (set y 'two)
elseif (eq x 1) 'one
else (set y 'more)))
(assert_equal y 'true)
(assert_equal 'one (unless ((not (eq x 0))) 'none
elseif (eq x 1)
(set y 'one)
'one
else 'many))
(assert_equal y 'one)
(assert_equal 'one (unless ((not (eq x 0))) 'none
elseif (eq x 2) 'two
elseif (eq x 1)
(set y 'two)
'one
else 'more))
(assert_equal y 'two)))
Jump to Line
Something went wrong with that request. Please try again.