Unified · Split
| @@ -689,9 +689,29 @@ · 688 unmodified lines | ||
| 689 | 689 | (assert (= 0 (sin 0.0f))) |
| 690 | 690 | (assert (= 0 (sin (int64 0)))) |
| 691 | 691 | (assert (= 0 (sin (bignum 0)))) |
| 692 | −(assert-fail (sin "blah")) | |
| 693 | −(assert-fail (sin 'blah)) | |
| 692 | +(assert (= 1 (cos 0))) | |
| 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 | 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 | 716 | (assert (= (length (table "hello" "goodbye" 123 456)) 2)) |
| 697 | 717 | (assert-fail (table 1)) |