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
|
require 'rpatricia'
$all_tests_ok = true
def my_test condition
puts (condition)? "ok!" : "error!"
$all_tests_ok &= condition
end
puts "test: creating Patricia object"
my_test(t = Patricia.new)
puts "test: adding 127.0.0.0/24"
my_test(n = t.add("127.0.0.0/24"))
puts " data of added node = #{n.data}"
puts " prefix of added node = #{n.prefix}"
puts " network of added node = #{n.network}"
puts " prefixlen of added node = #{n.prefixlen}"
puts "adding 192.168.1.0/24, 192.168.2.0/24, 192.168.3.100"
t.add("192.168.1.0/24")
t.add("192.168.2.0/24")
t.add("192.168.3.100")
puts "test: match_best 127.0.0.1"
my_test(n = t.match_best("127.0.0.1"))
puts "test: match_exact 192.168.3.100"
my_test(n = t.match_best("192.168.3.100"))
puts " data of matched node = #{n.data}"
puts " prefix of matched node = #{n.prefix}"
puts " network of matched node = #{n.network}"
puts " prefixlen of matched node = #{n.prefixlen}"
puts "test: adding prefix 10.0.0.0/8 with user data of 'pref_10.0.0.0/8'"
my_test(n = t.add("10.0.0.0/8", "pref_10"))
puts " data of added node = #{n.data}"
puts " prefix of added node = #{n.prefix}"
puts " network of added node = #{n.network}"
puts " prefixlen of added node = #{n.prefixlen}"
puts "test: match string 10.0.0.1"
my_test(n = t.match_best("10.0.0.1"))
puts " data of matched node = #{n.data}"
puts " prefix of matched node = #{n.prefix}"
puts " network of matched node = #{n.network}"
puts " prefixlen of matched node = #{n.prefixlen}"
puts "test: remove '42.0.0.0/8'; should return nil"
my_test(!t.remove("42.0.0.0/8"))
puts "test: remove '10.0.0.0/8'"
my_test(n= t.remove("10.0.0.0/8"))
puts "test: number of nodes in the tree should be '4'"
my_test(4 == t.num_nodes)
puts "test: showing all nodes"
t.show_nodes
puts "test: return all nodes in Hash"
my_test(t.nodes == {"127.0.0.0/24"=>"", "192.168.1.0/24"=>"", "192.168.2.0/24"=>"", "192.168.3.100/32"=>""})
t.destroy
abort unless $all_tests_ok
|
