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
|
#!/usr/bin/perl
use strict;
use warnings;
# Test timeouts for cisco ipv6 traceroute.
use Test::More tests => 15;
use Net::Traceroute;
require "t/testlib.pl";
my $tr = parsefh(*DATA);
is($tr->hop_queries(2), 3,
"Hop 2 has 3 queries");
foreach my $query (1..3) {
is($tr->hop_query_stat(2, $query), TRACEROUTE_TIMEOUT,
"Hop 2, query $query stat is TRACEROUTE_TIMEOUT");
is($tr->hop_query_host(2, $query), "255.255.255.255",
"Hop 2, query $query host is 255.255.255.255");
}
is($tr->hop_queries(3), 3,
"Hop 3 has 3 queries");
is($tr->hop_query_stat(3, 1), TRACEROUTE_TIMEOUT,
"Hop 3, query 1 stat is TRACEROUTE_TIMEOUT");
is($tr->hop_query_host(3, 1), "255.255.255.255",
"Hop 3, query 1 host is 255.255.255.255");
is($tr->hop_query_stat(3, 2), TRACEROUTE_TIMEOUT,
"Hop 3, query 2 stat is TRACEROUTE_TIMEOUT");
is($tr->hop_query_host(3, 2), "255.255.255.255",
"Hop 3, query 2 host is 255.255.255.255");
is($tr->hop_query_stat(3, 3), TRACEROUTE_OK,
"Hop 3, query 3 stat is TRACEROUTE_OK");
is($tr->hop_query_host(3, 3), "2001:470:0:5D::1",
"Hop 3, query 3 host is 2001:470:0:5D::1");
is($tr->hop_query_time(3, 3), 28,
"Hop 3, query 3 time is 28 msec");
__END__
Type escape sequence to abort.
Tracing the route to 2001:4F8:0:2::D
1 2001:470:8917:9:2D0:B7FF:FE5E:7F36 4 msec 0 msec 4 msec
2 * * *
3 * *
2001:470:0:5D::1 28 msec
4 2001:470:0:36::1 28 msec 44 msec 36 msec
5 2001:470:0:1B5::2 40 msec 40 msec 44 msec
6 2001:470:0:CE::2 44 msec 44 msec 40 msec
7 2001:500:61:6::1 44 msec 40 msec 44 msec
8 2001:4F8:0:1::49:1 104 msec 124 msec 100 msec
9 2001:4F8:0:2::D 100 msec 112 msec 120 msec
|
