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
|
local inet = require 'inet'
local inet_set = require 'inet.set'
local test = require 'test'
local inspect = require 'inspect'
function agg_set(a, b)
inet_set.aggregate(a)
assert(#a == #b, 'wrong set size')
for i=1,#a do
--print(a[i], b[i])
assert(a[i] == b[i], 'unexpected network')
end
end
return test.new(function()
local ip = inet('10.0.0.0/24')
agg_set({
inet('10.0.0.0/24'),
inet('10.0.1.0/24'),
}, {
inet('10.0.0.0/23'),
})
agg_set({
inet('10.0.1.0/24'),
inet('10.0.2.0/24'),
}, {
inet('10.0.1.0/24'),
inet('10.0.2.0/24'),
})
agg_set({
inet('10.0.1.0/24'),
inet('10.0.2.0/24'),
inet('10.0.3.0/24'),
inet('10.0.4.0/24'),
}, {
inet('10.0.1.0/24'),
inet('10.0.2.0/23'),
inet('10.0.4.0/24'),
})
agg_set({
inet('10.0.2.1/24'),
inet('10.0.4.0/24'),
inet('10.0.1.0/24'),
inet('10.0.3.0/24'),
}, {
inet('10.0.2.0/23'),
inet('10.0.4.0/24'),
inet('10.0.1.0/24'),
})
agg_set({
inet('10.0.1.1/24'),
inet('10.0.3.2/24'),
inet('10.0.2.3/24'),
inet('10.0.4.4/24'),
}, {
inet('10.0.1.0/24'),
inet('10.0.2.0/23'),
inet('10.0.4.0/24'),
})
agg_set({
inet('::/32'),
inet('0:1::/32'),
}, {
inet('::/31'),
})
end)
|
