Acme-AutoLoad

 view release on metacpan or  search on metacpan

t/00_compile.t  view on Meta::CPAN

# 00_compile.t - Just make sure Acme::AutoLoad compiles

use Test::More tests => 1;
BEGIN { use_ok('Acme::AutoLoad') };

t/01_network.t  view on Meta::CPAN

#!perl

# 01_network.t - Test if remote network is reachable.

use strict;
use Test::More;
use IO::Socket;
unless ($ENV{NETWORK_TEST_ACME_AUTOLOAD}) {
  plan skip_all => "Network dependent test: For actual test, use NETWORK_TEST_ACME_AUTOLOAD=1";
}
plan tests => 7;

alarm(30);
$SIG{ALRM} = sub { die "Network is broken" };
my $sock;
my $line;

t/10_live.t  view on Meta::CPAN

#!perl

# 10_live.t - Test full functionality
# Try an obscure module that hopefully is not installed already
# but that is simple and pure perl, and make sure it loads.

use strict;
use warnings;
use IO::Socket;
use Test::More;

BEGIN {
  unless ($ENV{NETWORK_TEST_ACME_AUTOLOAD}) {
    plan skip_all => "Network dependent test: For actual test, use NETWORK_TEST_ACME_AUTOLOAD=1";
  }
  # Make sure the test module isn't currently installed.
  if (eval 'require Cwd::Guard') {
    plan skip_all => "You weren't supposed to actually install Cwd::Guard yourself. Please uninstall it for a better test.";
  }
  plan tests => 7;

t/20_bootstrap.t  view on Meta::CPAN

#!perl

# 20_bootstrap.t - Test loading myself from CPAN eating my own dogfood.

use strict;
use warnings;
use IO::Socket;
use Test::More;

BEGIN {
  $ENV{AUTOLOAD_LIB} = "autoloadcache.$<";
  @INC = grep { !/blib/ } @INC;
  unless ($ENV{NETWORK_TEST_ACME_AUTOLOAD}) {
    plan skip_all => "Network dependent test: For actual test, use NETWORK_TEST_ACME_AUTOLOAD=1";
  }
  # Make sure the module isn't actually installed.
  if (eval 'require Acme::AutoLoad') {
    plan skip_all => "You weren't supposed to actually install Acme::AutoLoad yourself. Please uninstall it for a better test.";

 view all matches for this distribution
 view release on metacpan -  search on metacpan