#!/usr/bin/perl
use strict;
use warnings;
# Basic tests of ipv4 traceroute on a cisco.
use Test::More tests => 6;
use Net::Traceroute;
require "t/testlib.pl";
my $tr = parsefh(*DATA);
is($tr->hop_query_host(8, 1), "4.69.145.13", "hop 8, query 1 host is as expected");
is($tr->hop_query_time(8, 1), 64, "hop 8, query 1 time is as expected");
is($tr->hop_query_host(8, 2), "4.69.145.141", "hop 8, query 2 host is as expected");
is($tr->hop_query_time(8, 2), 56, "hop 8, query 2 time is as expected");
is($tr->hop_query_host(8, 3), "4.69.145.77", "hop 8, query 3 host is as expected");
is($tr->hop_query_time(8, 3), 59, "hop 8, query 3 time is as expected");
__END__
Type escape sequence to abort.
Tracing the route to 69.164.206.2
1 10.12.0.1 0 msec 4 msec 0 msec
2 66.92.73.1 24 msec 28 msec 24 msec
3 69.17.83.201 20 msec 24 msec 20 msec
4 166.90.136.33 24 msec 20 msec 24 msec
5 4.68.97.62 28 msec 24 msec 36 msec
6 4.69.148.37 24 msec 20 msec 24 msec
7 4.69.137.121 56 msec 56 msec 68 msec
8 4.69.145.13 64 msec
4.69.145.141 56 msec
4.69.145.77 59 msec
9 4.59.32.30 56 msec 56 msec 60 msec
10 70.87.253.10 56 msec
70.87.255.42 56 msec
70.87.253.26 56 msec
11 70.87.253.122 60 msec
70.87.255.122 60 msec *
12 70.87.255.86 56 msec
70.87.255.82 56 msec 60 msec
13 67.18.7.90 60 msec * 60 msec