Return to 50-network.t-stub CVS log

Up to [local] / trango / Net-Telnet-Trango / t

add a stub for network testing, and prompt for the username and password when running Build.PL

#!perl -T
# $RedRiver$

use Test::More tests => 2;

BEGIN {
	use_ok( 'Net::Telnet::Trango' );
}

diag( "Testing Net::Telnet::Trango $Net::Telnet::Trango::VERSION, Perl $], $^X" );

my %cfg;
if (-e 'do_network.tests') {
    if (open my $fh, 'do_network.tests') {
        while (<$fh>) {
            chomp;
            my ($key, $value) = split /\t/, $_, 2;
            $cfg{$key} = $value;
        }
        close $fh;
    }
}

SKIP: {
    skip 'No AP or Password in config file', 1
        unless $cfg{AP} && $cfg{PASSWD};

    ok( sub { return 1 } );
}