prosody
449399a7e136
tests/test_util_rfc6724.lua

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / prosody

Comparison

tests/test_util_rfc6724.lua @ 5720:449399a7e136

Merge
author Matthew Wild <mwild1@gmail.com>
date Sat, 29 Jun 2013 14:45:47 +0100
parent 5609:f12d1c03dd94
comparison
equal deleted inserted replaced
5719:84025249fc04 5720:449399a7e136
1 -- Prosody IM
2 -- Copyright (C) 2011-2013 Florian Zeitz
3 --
4 -- This project is MIT/X11 licensed. Please see the
5 -- COPYING file in the source package for more information.
6 --
7
8 function source(source)
9 local new_ip = require"util.ip".new_ip;
10 assert_equal(source(new_ip("2001:db8:1::1", "IPv6"),
11 {new_ip("2001:db8:3::1", "IPv6"), new_ip("fe80::1", "IPv6")}).addr,
12 "2001:db8:3::1",
13 "prefer appropriate scope");
14 assert_equal(source(new_ip("ff05::1", "IPv6"),
15 {new_ip("2001:db8:3::1", "IPv6"), new_ip("fe80::1", "IPv6")}).addr,
16 "2001:db8:3::1",
17 "prefer appropriate scope");
18 assert_equal(source(new_ip("2001:db8:1::1", "IPv6"),
19 {new_ip("2001:db8:1::1", "IPv6"), new_ip("2001:db8:2::1", "IPv6")}).addr,
20 "2001:db8:1::1",
21 "prefer same address"); -- "2001:db8:1::1" should be marked "deprecated" here, we don't handle that right now
22 assert_equal(source(new_ip("fe80::1", "IPv6"),
23 {new_ip("fe80::2", "IPv6"), new_ip("2001:db8:1::1", "IPv6")}).addr,
24 "fe80::2",
25 "prefer appropriate scope"); -- "fe80::2" should be marked "deprecated" here, we don't handle that right now
26 assert_equal(source(new_ip("2001:db8:1::1", "IPv6"),
27 {new_ip("2001:db8:1::2", "IPv6"), new_ip("2001:db8:3::2", "IPv6")}).addr,
28 "2001:db8:1::2",
29 "longest matching prefix");
30 --[[ "2001:db8:1::2" should be a care-of address and "2001:db8:3::2" a home address, we can't handle this and would fail
31 assert_equal(source(new_ip("2001:db8:1::1", "IPv6"),
32 {new_ip("2001:db8:1::2", "IPv6"), new_ip("2001:db8:3::2", "IPv6")}).addr,
33 "2001:db8:3::2",
34 "prefer home address");
35 ]]
36 assert_equal(source(new_ip("2002:c633:6401::1", "IPv6"),
37 {new_ip("2002:c633:6401::d5e3:7953:13eb:22e8", "IPv6"), new_ip("2001:db8:1::2", "IPv6")}).addr,
38 "2002:c633:6401::d5e3:7953:13eb:22e8",
39 "prefer matching label"); -- "2002:c633:6401::d5e3:7953:13eb:22e8" should be marked "temporary" here, we don't handle that right now
40 assert_equal(source(new_ip("2001:db8:1::d5e3:0:0:1", "IPv6"),
41 {new_ip("2001:db8:1::2", "IPv6"), new_ip("2001:db8:1::d5e3:7953:13eb:22e8", "IPv6")}).addr,
42 "2001:db8:1::d5e3:7953:13eb:22e8",
43 "prefer temporary address") -- "2001:db8:1::2" should be marked "public" and "2001:db8:1::d5e3:7953:13eb:22e8" should be marked "temporary" here, we don't handle that right now
44 end
45
46 function destination(dest)
47 local order;
48 local new_ip = require"util.ip".new_ip;
49 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("198.51.100.121", "IPv4")},
50 {new_ip("2001:db8:1::2", "IPv6"), new_ip("fe80::1", "IPv6"), new_ip("169.254.13.78", "IPv4")})
51 assert_equal(order[1].addr, "2001:db8:1::1", "prefer matching scope");
52 assert_equal(order[2].addr, "198.51.100.121", "prefer matching scope");
53
54 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("198.51.100.121", "IPv4")},
55 {new_ip("fe80::1", "IPv6"), new_ip("198.51.100.117", "IPv4")})
56 assert_equal(order[1].addr, "198.51.100.121", "prefer matching scope");
57 assert_equal(order[2].addr, "2001:db8:1::1", "prefer matching scope");
58
59 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("10.1.2.3", "IPv4")},
60 {new_ip("2001:db8:1::2", "IPv6"), new_ip("fe80::1", "IPv6"), new_ip("10.1.2.4", "IPv4")})
61 assert_equal(order[1].addr, "2001:db8:1::1", "prefer higher precedence");
62 assert_equal(order[2].addr, "10.1.2.3", "prefer higher precedence");
63
64 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("fe80::1", "IPv6")},
65 {new_ip("2001:db8:1::2", "IPv6"), new_ip("fe80::2", "IPv6")})
66 assert_equal(order[1].addr, "fe80::1", "prefer smaller scope");
67 assert_equal(order[2].addr, "2001:db8:1::1", "prefer smaller scope");
68
69 --[[ "2001:db8:1::2" and "fe80::2" should be marked "care-of address", while "2001:db8:3::1" should be marked "home address", we can't currently handle this and would fail the test
70 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("fe80::1", "IPv6")},
71 {new_ip("2001:db8:1::2", "IPv6"), new_ip("2001:db8:3::1", "IPv6"), new_ip("fe80::2", "IPv6")})
72 assert_equal(order[1].addr, "2001:db8:1::1", "prefer home address");
73 assert_equal(order[2].addr, "fe80::1", "prefer home address");
74 ]]
75
76 --[[ "fe80::2" should be marked "deprecated", we can't currently handle this and would fail the test
77 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("fe80::1", "IPv6")},
78 {new_ip("2001:db8:1::2", "IPv6"), new_ip("fe80::2", "IPv6")})
79 assert_equal(order[1].addr, "2001:db8:1::1", "avoid deprecated addresses");
80 assert_equal(order[2].addr, "fe80::1", "avoid deprecated addresses");
81 ]]
82
83 order = dest({new_ip("2001:db8:1::1", "IPv6"), new_ip("2001:db8:3ffe::1", "IPv6")},
84 {new_ip("2001:db8:1::2", "IPv6"), new_ip("2001:db8:3f44::2", "IPv6"), new_ip("fe80::2", "IPv6")})
85 assert_equal(order[1].addr, "2001:db8:1::1", "longest matching prefix");
86 assert_equal(order[2].addr, "2001:db8:3ffe::1", "longest matching prefix");
87
88 order = dest({new_ip("2002:c633:6401::1", "IPv6"), new_ip("2001:db8:1::1", "IPv6")},
89 {new_ip("2002:c633:6401::2", "IPv6"), new_ip("fe80::2", "IPv6")})
90 assert_equal(order[1].addr, "2002:c633:6401::1", "prefer matching label");
91 assert_equal(order[2].addr, "2001:db8:1::1", "prefer matching label");
92
93 order = dest({new_ip("2002:c633:6401::1", "IPv6"), new_ip("2001:db8:1::1", "IPv6")},
94 {new_ip("2002:c633:6401::2", "IPv6"), new_ip("2001:db8:1::2", "IPv6"), new_ip("fe80::2", "IPv6")})
95 assert_equal(order[1].addr, "2001:db8:1::1", "prefer higher precedence");
96 assert_equal(order[2].addr, "2002:c633:6401::1", "prefer higher precedence");
97 end