Net-IPAddress-Util

 view release on metacpan or  search on metacpan

t/00-load.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::More tests => 4;

BEGIN {
  if ($] ge '5.026') {
    use lib '.';
  }
  use_ok('Net::IPAddress::Util');
  use_ok('Net::IPAddress::Util::Range');
  use_ok('Net::IPAddress::Util::Collection');
  use_ok('Net::IPAddress::Util::Collection::Tie');
}

diag("Testing Net::IPAddress::Util $Net::IPAddress::Util::VERSION, Perl $], $^X");

t/10-ip-address.t  view on Meta::CPAN

#!/usr/bin/env perl

BEGIN {
  if ($] ge '5.012') {
    use strict;
    use warnings;
  }
}

use lib '.';
use Net::IPAddress::Util qw( :constr );
use Net::IPAddress::Util::Range;
use Net::IPAddress::Util::Collection;
use Test::More tests => 49;

t/11-autarch.t  view on Meta::CPAN

#!/usr/bin/env perl

BEGIN {
  if ($] ge '5.012') {
    use strict;
    use warnings;
  }
}

use lib '.';
use Net::IPAddress::Util qw( :constr );
use Net::IPAddress::Util::Range;
use Net::IPAddress::Util::Collection;
use Test::More tests => 1;

t/15-siit-address.t  view on Meta::CPAN

#!/usr/bin/env perl

BEGIN {
  if ($] ge '5.012') {
    use strict;
    use warnings;
  }
}

use lib '.';
use Net::IPAddress::Util qw( :constr );
use Net::IPAddress::Util::Range;
use Net::IPAddress::Util::Collection;
use Test::More tests => 49;

t/20-time-trials.t  view on Meta::CPAN

#!/usr/bin/env perl

BEGIN {
  if ($] ge '5.012') {
    use strict;
    use warnings;
  }
  if ($] ge '5.026') {
    use lib '.';
  }
}

use Net::IPAddress::Util qw( :constr radix_sort );
use Net::IPAddress::Util::Range;
use Net::IPAddress::Util::Collection;
use Test::More tests => 1;
use Time::HiRes qw(time);

t/30-compat.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

BEGIN {
  if ($] ge '5.026') {
    use lib '.';
  }
}

use Test::More tests => 5;

SKIP: {

  my (
    $old_dq, $old_num, $old_vld, $old_nvd, $old_msk, $old_hn, $old_dn,