shithub: sl

Info  •  Files  •  Log  •  Branches

unit tests: math funcs

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -689,9 +689,29 @@

 (assert (= 0 (sin 0.0f)))

 (assert (= 0 (sin (int64 0))))

 (assert (= 0 (sin (bignum 0))))

-(assert-fail (sin "blah"))

-(assert-fail (sin 'blah))

+(assert (= 1 (cos 0)))

+(assert (= 3 (sqrt 9)))

+(assert (= 3 (log10 1000)))

+(assert (= 0 (log 1)))

+(assert (= 1 (exp 0)))

+(assert (= 1 (log (exp 1))))

+

+(assert-fail (acos acos))

+(assert-fail (asin asin))

+(assert-fail (atan atan))

+(assert-fail (ceiling ceiling))

+(assert-fail (cos cos))

+(assert-fail (cosh cosh))

+(assert-fail (exp exp))

+(assert-fail (expt expt expt))

+(assert-fail (floor floor))

+(assert-fail (log log))

+(assert-fail (log10 log10))

 (assert-fail (sin sin))

+(assert-fail (sinh sinh))

+(assert-fail (sqrt sqrt))

+(assert-fail (tan tan))

+(assert-fail (tanh tanh))

 (assert (= (length (table "hello" "goodbye" 123 456)) 2))

 (assert-fail (table 1))