blob: 34f5b7c753b8ddffb36520d7c4e4e149abc4a134 (
plain)
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
|
(load "../common.tl")
(each ((b 2..36))
(mtest
(int-str "" b) nil
(int-str "$" b) nil
(int-str "-" b) nil
(int-str "+" b) nil
(int-str "0" b) 0
(int-str "00" b) 0
(int-str "0x" b) 0
(int-str "0x3" b) 0
(int-str "0xz" b) 0))
(mtest
(int-str "+123") 123
(int-str "-123") -123
(int-str "0123") 123
(int-str "00123") 123
(int-str "999999999999999999999999999999") 999999999999999999999999999999
(int-str "+999999999999999999999999999999") 999999999999999999999999999999
(int-str "-999999999999999999999999999999") -999999999999999999999999999999)
(let ((c #\c))
(mtest
(int-str "+123" c) 123
(int-str "-123" c) -123
(int-str "0123" c) 83
(int-str "00123" c) 83
(int-str "0x123" c) 291
(int-str "-0x123" c) -291
(int-str "+0xFFFFFFFFFFFFFFFFFFFF" c) #xFFFFFFFFFFFFFFFFFFFF
(int-str "-0xFFFFFFFFFFFFFFFFFFFF" c) #x-FFFFFFFFFFFFFFFFFFFF))
(mtest
(int-str "zZz" 35) nil
(int-str "zZz" 36) 46655
(int-str "-zZz" 36) -46655
(int-str "+zZz" 36) 46655
(int-str "+0zZz" 36) 46655
(int-str "-0zZz" 36) -46655
(int-str "0zZz" 36) 46655
(int-str "1" 36) 1
(int-str "10" 36) 36
(int-str "100" 36) 1296
(int-str "zzzzzzzzzzzzzzzzzzzzzzzz" 36) 22452257707354557240087211123792674815
(int-str "-zzzzzzzzzzzzzzzzzzzzzzzz" 36) -22452257707354557240087211123792674815
(int-str "0zzzzzzzzzzzzzzzzzzzzzzzz" 36) 22452257707354557240087211123792674815
(int-str "-0zzzzzzzzzzzzzzzzzzzzzzzz" 36) -22452257707354557240087211123792674815
(int-str "+0zzzzzzzzzzzzzzzzzzzzzzzz" 36) 22452257707354557240087211123792674815)
|
