Return to network_tests.t CVS log | Up to [local] / HOPE / Net-OpenAMD / t |
File: [local] / HOPE / Net-OpenAMD / t / network_tests.t (download)
Revision 1.1, Sat Jun 26 16:33:33 2010 UTC (14 years ago) by andrew
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); }