Return to 50-network.t-stub CVS log

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

Annotation of trango/Net-Telnet-Trango/t/50-network.t-stub, Revision 1.1

1.1     ! andrew      1: #!perl -T
        !             2: # $RedRiver$
        !             3:
        !             4: use Test::More tests => 2;
        !             5:
        !             6: BEGIN {
        !             7:        use_ok( 'Net::Telnet::Trango' );
        !             8: }
        !             9:
        !            10: diag( "Testing Net::Telnet::Trango $Net::Telnet::Trango::VERSION, Perl $], $^X" );
        !            11:
        !            12: my %cfg;
        !            13: if (-e 'do_network.tests') {
        !            14:     if (open my $fh, 'do_network.tests') {
        !            15:         while (<$fh>) {
        !            16:             chomp;
        !            17:             my ($key, $value) = split /\t/, $_, 2;
        !            18:             $cfg{$key} = $value;
        !            19:         }
        !            20:         close $fh;
        !            21:     }
        !            22: }
        !            23:
        !            24: SKIP: {
        !            25:     skip 'No AP or Password in config file', 1
        !            26:         unless $cfg{AP} && $cfg{PASSWD};
        !            27:
        !            28:     ok( sub { return 1 } );
        !            29: }