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
|
#!/usr/bin/perl
# Parse a traceroute full of wierd ipv6 addresses to stress the cheezy
# v6 address parser. You will not see most of these addresses in a
# traceroute, but seems better safe than sorry.
use strict;
use warnings;
use Test::More tests => 9;
use Net::Traceroute;
require "t/testlib.pl";
my $tr = parsefh(*DATA);
is($tr->hop_query_host(1, 1), "2002:c058:6301::1", "hop 1, boring address");
is($tr->hop_query_host(2, 1), "::1", "hop 2, localhost");
is($tr->hop_query_host(3, 1), "2::", "hop 3, leading bytes only");
is($tr->hop_query_host(4, 1), "::", "hop 4, in6addr_any");
is($tr->hop_query_host(5, 1), "::ffff:1.2.3.4", "hop 5, v4 mapped");
is($tr->hop_query_host(6, 1), "::1.2.3.4", "hop 6, v4 mapped");
is($tr->hop_query_host(7, 1), "dead:beef:8917:cafe:d00d:f00f:feed:f00b", "hop 7, fully expanded");
is($tr->hop_query_host(8, 1), "dead:beef:8917:cafe:d00d:f00f:10.7.91.152", "hop 8, expanded and v4 mapped");
is($tr->hop_query_host(9, 1), "2001:4860:b009::93", "hop 9, vanilla");
__END__
1 2002:c058:6301::1 22.54 ms 22.481 ms 22.095 ms
2 ::1 20.808 ms 23.063 ms 22.834 ms
3 2:: 24.019 ms 21.704 ms 21.923 ms
4 :: 23.767 ms 2001:4860::1:0:755 23.029 ms 2001:4860::1:0:3be 23.817 ms
5 ::ffff:1.2.3.4 30.173 ms 28.244 ms 2001:4860::1:0:5dc 29.486 ms
6 ::1.2.3.4 40.747 ms 2001:4860::1:0:249f 62.25 ms 2001:4860::1:0:613 38.352 ms
7 dead:beef:8917:cafe:d00d:f00f:feed:f00b 39.562 ms 2001:4860::31 43.566 ms 2001:4860::30 65.887 ms
8 dead:beef:8917:cafe:d00d:f00f:10.7.91.152 38.801 ms 2001:4860:0:1::35 42.529 ms 2001:4860:0:1::37 47.7 ms
9 2001:4860:b009::93 38.08 ms 38.072 ms 37.636 ms
|
