#!/usr/bin/perl

use strict;
use warnings;

# Basic tests of ipv6 traceroute on a cisco.

use Test::More tests => 24;
use Net::Traceroute;
require "t/testlib.pl";

my $tr = parsefh(*DATA);

my @addrs = qw(
	     2001:470:8917:9:2D0:B7FF:FE5E:7F36
	     2001:470:1F06:177::1
	     2001:470:0:5D::1
	     2001:470:0:36::1
	     2001:470:0:59::2
	     2610:178:1:1:207:E9FF:FE5D:8335
	       );

my $hop = 1;
foreach my $addr (@addrs) {
    is($tr->hop_queries($hop), 3, "Hop $hop has 3 queries");
    for(my $query = 1; $query <= 3; $query++) {
	is($tr->hop_query_host($hop, $query), $addr, "Hop $hop query $query host is $addr");
    }
    $hop++;
}

__END__

Type escape sequence to abort.
Tracing the route to 2610:178:1:1:207:E9FF:FE5D:8335

  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 28 msec
  3 2001:470:0:5D::1 20 msec 24 msec 20 msec
  4 2001:470:0:36::1 28 msec 28 msec 32 msec
  5 2001:470:0:59::2 28 msec 32 msec 28 msec
  6 2610:178:1:1:207:E9FF:FE5D:8335 28 msec 28 msec 32 msec