view release on metacpan or  search on metacpan

t/server.t  view on Meta::CPAN

   use Test::More tests => 14;
   use_ok('CAM::SOAPClient');
}

my $PORT = 9674;

SKIP:
{
   require IO::Socket;
   my $s = IO::Socket::INET->new(PeerAddr => "localhost:$PORT",
                                 Timeout  => 10);
   if (!$s)
   {
      skip(
         "The test server is not running.  Run via:  './t/soap.pl $PORT &'\n" .
         "(the server runs for about ten minutes before turning itself off)\n" .
         "(Also note that the server require CAM::SOAPApp to be installed...)\n",
         
         # Hack: get the number of tests we expect, skip all but one
         # This hack relies on the soliton nature of Test::Builder
         Test::Builder->new()->expected_tests() -