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
|
#!/usr/bin/perl
use strict;
use warnings;
# Basic tests of ipv4 traceroute on a cisco.
use Test::More tests => 12;
use Net::Traceroute;
require "t/testlib.pl";
my $tr = parsefh(*DATA);
is($tr->hops(), 8, "has eight hops");
is($tr->hop_queries(1), 3, "hop 1 has 3 queries");
foreach my $q (1..3) {
is($tr->hop_query_host(1, $q), "10.12.0.1", "hop 1, query $q is 10.12.0.1");
is($tr->hop_query_stat(1, $q), TRACEROUTE_OK, "hop 1, query $q is TRACEROUTE_OK");
}
is($tr->hop_query_time(6, 1), 36, "correct time for hop 6, query 1");
is($tr->hop_query_time(6, 2), 32, "correct time for hop 6, query 2");
is($tr->hop_query_time(6, 3), 28, "correct time for hop 6, query 3");
is($tr->hop_query_host(8, 1), "192.148.252.10", "hop 8 is 192.148.252.10");
__END__
Type escape sequence to abort.
Tracing the route to 192.148.252.10
1 10.12.0.1 0 msec 0 msec 0 msec
2 66.92.73.1 24 msec 24 msec 20 msec
3 69.17.83.201 24 msec 20 msec 20 msec
4 198.32.160.61 24 msec 24 msec 24 msec
5 72.52.92.45 20 msec 24 msec 24 msec
6 72.52.92.86 36 msec 32 msec 28 msec
7 64.71.128.254 28 msec 28 msec 32 msec
8 192.148.252.10 24 msec 28 msec 24 msec
|
