Return to network_tests.t CVS log

Up to [local] / HOPE / Net-OpenAMD / t

Annotation of HOPE/Net-OpenAMD/t/network_tests.t, Revision 1.1

1.1     ! andrew      1: #!perl
        !             2: package NetworkTests;
        !             3: # $AFresh1$
        !             4:
        !             5: use strict;
        !             6: use warnings;
        !             7:
        !             8: use Test::More;
        !             9: use Net::OpenAMD;
        !            10:
        !            11: if (!caller()) {
        !            12:     if ($ENV{'NETWORK_TESTS'}) {
        !            13:         # plan tests => ??;
        !            14:     }
        !            15:     else {
        !            16:         plan skip_all => "Set env NETWORK_TESTS to test"
        !            17:     }
        !            18:
        !            19:     my $amd = Net::OpenAMD->new();
        !            20:     run_tests($amd);
        !            21:
        !            22:     done_testing();
        !            23: }
        !            24:
        !            25: 1;
        !            26:
        !            27: sub run_tests {
        !            28:     my ($amd) = @_;
        !            29:
        !            30:     ok(1);
        !            31: }