blob: 672831886c4f7a98de4809e1859ec63da3e494fa (
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
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
|
(load "../common.tl")
(test (inaddr-str "junk") :error)
(test (inaddr-str "0.0.0.0.0") :error)
(test (inaddr-str "0.0.0") :error)
(test (inaddr-str "0") :error)
(test (inaddr-str "") :error)
(test (inaddr-str "0.0.0.nnn") :error)
(test (inaddr-str "0.0.0.256") :error)
(test (inaddr-str "0.0.256.0") :error)
(test (inaddr-str "0.256.0.0") :error)
(test (inaddr-str "256.0.0.0") :error)
(test (inaddr-str "0.0.0.0:65537") :error)
(test (inaddr-str "0.0.0.0/33") :error)
(test (inaddr-str "0.0.0.0/32:65537") :error)
(test (inaddr-str "0.0.0.0/33:0") :error)
(test (inaddr-str "0.0.0.0:0/0") :error)
(test (inaddr-str "0.0.0.") :error)
(test (inaddr-str "0.0..0") :error)
(test (inaddr-str "0..0.0") :error)
(test (inaddr-str ".0.0.0") :error)
(test (inaddr-str "0.0.0.0:") :error)
(test (inaddr-str "0.0.0.0")
#S(sockaddr-in addr 0 port 0 prefix 32))
(test (inaddr-str "1.2.3.4")
#S(sockaddr-in addr 16909060 port 0 prefix 32))
(test (inaddr-str "255.255.255.255")
#S(sockaddr-in addr 4294967295 port 0 prefix 32))
(test (inaddr-str "0.0.0.0:0")
#S(sockaddr-in addr 0 port 0 prefix 32))
(test (inaddr-str "1.2.3.4:5")
#S(sockaddr-in addr 16909060 port 5 prefix 32))
(test (inaddr-str "255.255.255.255:65535")
#S(sockaddr-in addr 4294967295 port 65535 prefix 32))
(test (inaddr-str "0.0.0.0/0")
#S(sockaddr-in addr 0 port 0 prefix 0))
(test (inaddr-str "1.2.3.4/8")
#S(sockaddr-in addr 16777216 port 0 prefix 8))
(test (inaddr-str "255.255.255.255/24")
#S(sockaddr-in addr 4294967040 port 0 prefix 24))
(test (inaddr-str "0.0.0/0")
#S(sockaddr-in addr 0 port 0 prefix 0))
(test (inaddr-str "0.0/0")
#S(sockaddr-in addr 0 port 0 prefix 0))
(test (inaddr-str "0/0")
#S(sockaddr-in addr 0 port 0 prefix 0))
(test (inaddr-str "1.2.3/8")
#S(sockaddr-in addr 16777216 port 0 prefix 8))
(test (inaddr-str "1.2/8")
#S(sockaddr-in addr 16777216 port 0 prefix 8))
(test (inaddr-str "1/8")
#S(sockaddr-in addr 16777216 port 0 prefix 8))
(test (inaddr-str "0.0.0.0/0:1234")
#S(sockaddr-in addr 0 port 1234 prefix 0))
(test (inaddr-str "1.2.3.4/8:1234")
#S(sockaddr-in addr 16777216 port 1234 prefix 8))
(test (inaddr-str "255.255.255.255/24:1234")
#S(sockaddr-in addr 4294967040 port 1234 prefix 24))
(test (inaddr-str "0.0.0/0:1234")
#S(sockaddr-in addr 0 port 1234 prefix 0))
(test (inaddr-str "0.0/0:1234")
#S(sockaddr-in addr 0 port 1234 prefix 0))
(test (inaddr-str "0/0:1234")
#S(sockaddr-in addr 0 port 1234 prefix 0))
(test (inaddr-str "1.2.3/8:1234")
#S(sockaddr-in addr 16777216 port 1234 prefix 8))
(test (inaddr-str "1.2/8:1234")
#S(sockaddr-in addr 16777216 port 1234 prefix 8))
(test (inaddr-str "1/8:1234")
#S(sockaddr-in addr 16777216 port 1234 prefix 8))
|
