|
10 | 10 | "all-your-base tests" |
11 | 11 |
|
12 | 12 | (test-equal? "single-bit-one-to-decimal" |
13 | | - '( 1 ) |
14 | | - (rebase '( 1 ) 2 10)) |
| 13 | + (rebase '( 1 ) 2 10) |
| 14 | + '( 1 )) |
15 | 15 |
|
16 | 16 | (test-equal? "binary-to-single-decimal" |
17 | | - '( 5 ) |
18 | | - (rebase '( 1 0 1 ) 2 10)) |
| 17 | + (rebase '( 1 0 1 ) 2 10) |
| 18 | + '( 5 )) |
19 | 19 |
|
20 | 20 | (test-equal? "single-decimal-to-binary" |
21 | | - '( 1 0 1 ) |
22 | | - (rebase '( 5 ) 10 2)) |
| 21 | + (rebase '( 5 ) 10 2) |
| 22 | + '( 1 0 1 )) |
23 | 23 |
|
24 | 24 | (test-equal? "binary-to-multiple-decimal" |
25 | | - '( 4 2 ) |
26 | | - (rebase '( 1 0 1 0 1 0 ) 2 10)) |
| 25 | + (rebase '( 1 0 1 0 1 0 ) 2 10) |
| 26 | + '( 4 2 )) |
27 | 27 |
|
28 | 28 | (test-equal? "decimal-to-binary" |
29 | | - '( 1 0 1 0 1 0 ) |
30 | | - (rebase '( 4 2 ) 10 2)) |
| 29 | + (rebase '( 4 2 ) 10 2) |
| 30 | + '( 1 0 1 0 1 0 )) |
31 | 31 |
|
32 | 32 | (test-equal? "trinary-to-hexadecimal" |
33 | | - '( 2 10 ) |
34 | | - (rebase '( 1 1 2 0 ) 3 16)) |
| 33 | + (rebase '( 1 1 2 0 ) 3 16) |
| 34 | + '( 2 10 )) |
35 | 35 |
|
36 | 36 | (test-equal? "hexadecimal-to-trinary" |
37 | | - '( 1 1 2 0 ) |
38 | | - (rebase '( 2 10 ) 16 3)) |
| 37 | + (rebase '( 2 10 ) 16 3) |
| 38 | + '( 1 1 2 0 )) |
39 | 39 |
|
40 | 40 | (test-equal? "number-15-bit-integer" |
41 | | - '( 6 10 45 ) |
42 | | - (rebase '( 3 46 60 ) 97 73)) |
| 41 | + (rebase '( 3 46 60 ) 97 73) |
| 42 | + '( 6 10 45 )) |
43 | 43 |
|
44 | 44 | (test-equal? "empty-list" |
45 | | - '( 0 ) |
46 | | - (rebase '() 2 10)) |
| 45 | + (rebase '() 2 10) |
| 46 | + '( 0 )) |
47 | 47 |
|
48 | 48 | (test-equal? "single-zero" |
49 | | - '( 0 ) |
50 | | - (rebase '( 0 ) 10 2)) |
| 49 | + (rebase '( 0 ) 10 2) |
| 50 | + '( 0 )) |
51 | 51 |
|
52 | 52 | (test-equal? "multiple-zeros" |
53 | | - '( 0 ) |
54 | | - (rebase '( 0 0 0 ) 10 2)) |
| 53 | + (rebase '( 0 0 0 ) 10 2) |
| 54 | + '( 0 )) |
55 | 55 |
|
56 | 56 | (test-equal? "leading-zeros" |
57 | | - '( 4 2 ) |
58 | | - (rebase '( 0 6 0 ) 7 10)) |
| 57 | + (rebase '( 0 6 0 ) 7 10) |
| 58 | + '( 4 2 )) |
59 | 59 |
|
60 | 60 | (test-false "input-base-is-one" |
61 | 61 | (rebase '( 0 ) 1 10)) |
|
0 commit comments