#!/usr/bin/perl
use strict;
use warnings;
# Test parsing of cisco, ecmp over ipv6.
use Test::More tests => 13;
use Net::Traceroute;
require "t/testlib.pl";
my $tr = parsefh(*DATA);
is($tr->hop_queries(6), 3,
"Hop 6 has 3 queries");
is($tr->hop_query_host(6, 1), "2001:4860::1:0:9FF",
"Hop 6, query 1 host is 2001:4860::1:0:9FF");
is($tr->hop_query_time(6, 1), 32,
"Hop 6, query 1 time is 32 msec");
is($tr->hop_query_host(6, 2), "2001:4860::1:0:5DC",
"Hop 6, query 2 host is 2001:4860::1:0:5DC");
is($tr->hop_query_time(6, 2), 148,
"Hop 6, query 2 time is 148 msec");
is($tr->hop_query_host(6, 3), "2001:4860::1:0:9FF",
"Hop 6, query 3 host is 2001:4860::1:0:9FF");
is($tr->hop_query_time(6, 3), 32,
"Hop 6, query 3 time is 32 msec");
is($tr->hop_query_host(9, 1), "2001:4860:0:1::8B",
"Hop 9, query 1 host is 2001:4860:0:1::8B");
is($tr->hop_query_time(9, 1), 40,
"Hop 9, query 1 time is 40 msec");
is($tr->hop_query_host(9, 2), "2001:4860:0:1::8F",
"Hop 9, query 2 host is 2001:4860:0:1::8F");
is($tr->hop_query_time(9, 2), 52,
"Hop 9, query 2 time is 52 msec");
is($tr->hop_query_host(9, 3), "2001:4860:0:1::8F",
"Hop 9, query 3 host is 2001:4860:0:1::8F");
is($tr->hop_query_time(9, 3), 52,
"Hop 9, query 3 time is 52 msec");
__END__
Type escape sequence to abort.
Tracing the route to 2001:4860:800E::6A
1 2001:470:8917:9:2D0:B7FF:FE5E:7F36 4 msec 0 msec 4 msec
2 2001:470:1F06:177::1 24 msec 24 msec 24 msec
3 2001:470:0:5D::1 20 msec 24 msec 24 msec
4 2001:504:F::27 32 msec 24 msec 24 msec
5 2001:4860::1:0:755 24 msec 20 msec 116 msec
6 2001:4860::1:0:9FF 32 msec
2001:4860::1:0:5DC 148 msec
2001:4860::1:0:9FF 32 msec
7 2001:4860::1:0:7D9 44 msec
2001:4860::1:0:82E 44 msec
2001:4860::1:0:7D9 44 msec
8 2001:4860::2:0:125 40 msec 44 msec 40 msec
9 2001:4860:0:1::8B 40 msec
2001:4860:0:1::8F 52 msec 52 msec
10 2001:4860:800E::6A 44 msec 40 msec 40 msec