tests/num.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
'min-test require :test
;;;
"num" *test/describe
(2 2 + 4 ==) *test/assert
(1 3.0 + 4 ==) *test/assert
(3.1 3.9 + 7 ==) *test/assert
(3 -2.1 + 0.8999999999999999 ==) *test/assert
(3 3 - 0 ==) *test/assert
(-5 -4 - -1 ==) *test/assert
(-4 3.7 - -7.7 ==) *test/assert
(-2 4 * -8 ==) *test/assert
(-2.5 -2 * 5 ==) *test/assert
(3 3 * 9 ==) *test/assert
(5 2 / 2.5 ==) *test/assert
(1 3 / 0.3333333333333333 ==) *test/assert
(-3 2 / -1.5 ==) *test/assert
(5 2 div 2 ==) *test/assert
(1 3 div 0 ==) *test/assert
(-3 2 div -1 ==) *test/assert
(5 2 mod 1 ==) *test/assert
(4 2 mod 0 ==) *test/assert
(-3 2 mod -1 ==) *test/assert
(1000 random 1000 <) *test/assert
((1 2 3 4 5) sum 15 ==) *test/assert
((1 2 3 4 5) product 120 ==) *test/assert
((1 2 3 4 5) avg 3.0 ==) *test/assert
((1 2 3 4 5 6) avg 3.5 ==) *test/assert
((1 3 5 7) med 4.0 ==) *test/assert
((1 3 5 7 9) med 5 ==) *test/assert
((1 5) range (1 2 3 4 5) ==) *test/assert
((5 1) range (5 4 3 2 1) ==) *test/assert
((4 7) range (4 5 6 7) ==) *test/assert
((7 4) range (7 6 5 4) ==) *test/assert
((1 6 2) range (1 3 5) ==) *test/assert
((1 6 3) range (1 4) ==) *test/assert
((0 6 2) range (0 2 4 6) ==) *test/assert
((6 1 2) range (6 4 2) ==) *test/assert
((6 1 3) range (6 3) ==) *test/assert
((6 0 2) range (6 4 2 0) ==) *test/assert
(2 3 bitand 2 ==) *test/assert
(123 bitnot -124 ==) *test/assert
(2 3 bitor 3 ==) *test/assert
(2 3 bitxor 1 ==) *test/assert
(2 3 shl 16 ==) *test/assert
(16 3 shr 2 ==) *test/assert
(0 :c
(c 10 <) (c succ @c) while
c 10 ==) *test/assert
((1 2 3 4 5) (even?) filter (2 4) ==) *test/assert
((1 2 3 4 5) (even?) any?) *test/assert
((2 4 6 8) (even?) all?) *test/assert
(base? "dec" ==) *test/assert
('bin base "bin" base? == 'dec base) *test/assert
(0b10010 18 ==) *test/assert
(0b101010 0b010101 bitand 0b000000 ==) *test/assert
(0b101010 0b010101 bitor 0b111111 ==) *test/assert
(0b101010 0b010101 bitxor 0b111111 ==) *test/assert
(0b111000 (0 2) bitflip 0b111101 ==) *test/assert
(0b111001 (0) bitclear 0b111000 ==) *test/assert
(0b111000 (0 1) bitset 0b111011 ==) *test/assert
(0b111000 bitparity 1 ==) *test/assert
*test/report
clear-stack
|