Showing the changes to test (1 of 1 file). Show all
Unified · Split
| @@ -689,9 +689,29 @@ · 688 unmodified lines | |||
| 689 | (assert (= 0 (sin 0.0f))) | 689 | (assert (= 0 (sin 0.0f))) |
| 690 | (assert (= 0 (sin (int64 0)))) | 690 | (assert (= 0 (sin (int64 0)))) |
| 691 | (assert (= 0 (sin (bignum 0)))) | 691 | (assert (= 0 (sin (bignum 0)))) |
| 692 | (assert-fail (sin "blah")) | 692 | (assert (= 1 (cos 0))) |
| 693 | (assert-fail (sin 'blah)) | 693 | (assert (= 3 (sqrt 9))) |
| 694 | (assert (= 3 (log10 1000))) | ||
| 695 | (assert (= 0 (log 1))) | ||
| 696 | (assert (= 1 (exp 0))) | ||
| 697 | (assert (= 1 (log (exp 1)))) | ||
| 698 | |||
| 699 | (assert-fail (acos acos)) | ||
| 700 | (assert-fail (asin asin)) | ||
| 701 | (assert-fail (atan atan)) | ||
| 702 | (assert-fail (ceiling ceiling)) | ||
| 703 | (assert-fail (cos cos)) | ||
| 704 | (assert-fail (cosh cosh)) | ||
| 705 | (assert-fail (exp exp)) | ||
| 706 | (assert-fail (expt expt expt)) | ||
| 707 | (assert-fail (floor floor)) | ||
| 708 | (assert-fail (log log)) | ||
| 709 | (assert-fail (log10 log10)) | ||
| 694 | (assert-fail (sin sin)) | 710 | (assert-fail (sin sin)) |
| 711 | (assert-fail (sinh sinh)) | ||
| 712 | (assert-fail (sqrt sqrt)) | ||
| 713 | (assert-fail (tan tan)) | ||
| 714 | (assert-fail (tanh tanh)) | ||
| 695 | 715 | ||
| 696 | (assert (= (length (table "hello" "goodbye" 123 456)) 2)) | 716 | (assert (= (length (table "hello" "goodbye" 123 456)) 2)) |
| 697 | (assert-fail (table 1)) | 717 | (assert-fail (table 1)) |