;; test_operators.nu
;; tests for Nu operators.
;;
;; Copyright (c) 2007 Tim Burks, Neon Design Technology, Inc.
(class TestOperators is NuTestCase
(imethod (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')))
(imethod (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')))
(imethod (id) testAddOperator is
(assert_equal 3 (+ 1 1 -5 6))
(assert_equal "hello, world" (+ "hello" "," " " "world")))
(imethod (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
(imethod (id) dontTestTheGetsOperator is
(assert_not_equal nil gets)
(puts "\nPlease don't enter anything.")
(assert_equal (gets) ""))
(imethod (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))
(imethod (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))
(imethod (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))
(imethod (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.
(imethod (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))
(imethod (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)))
) is private.
