#use diagnostics;

use NetAddr::IP::Util qw(

	inet_n2dx

);

use NetAddr::IP::Lite;

$| = 1;

print "1..2\n";

my $test = 1;

sub ok() {

  print 'ok ',$test++,"\n";

}

my $loip	= new NetAddr::IP::Lite('::1.2.3.4/120');		# same as 1.2.3.4/24

my $hiip	= new NetAddr::IP::Lite('FF00::4/120');

## test aton

my $exp = 'FF00:0:0:0:0:0:0:4';

my $txt = inet_n2dx($hiip->aton);

print "got: $txt, exp: $exp\nnot "

	unless $txt eq $exp;

&ok;

$exp = '1.2.3.4';

$txt = inet_n2dx($loip->aton);

print "got: $txt, exp: $exp\nnot "

	unless $txt eq $exp;

&ok;