Return to network_tests.t CVS log

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

put the API tests in their own file, but allow me to call it with my own object so it can run the tests against multiple hosts.

#!perl
package NetworkTests;
# $AFresh1: network_tests.t,v 1.1 2010/06/26 16:33:33 andrew Exp $

use strict;
use warnings;

use Test::More;
use Net::OpenAMD;

if (!caller()) {
    if ($ENV{'NETWORK_TESTS'}) {
        # plan tests => ??; 
    }
    else {
        plan skip_all => "Set env NETWORK_TESTS to test" 
    }

    my $amd = Net::OpenAMD->new();
    run_tests($amd);

    done_testing();
}

1;

sub run_tests {
    my ($amd) = @_;

    ok(1);
}