1#!/bin/env perl 2 3BEGIN { 4unless(grep /blib/, @INC) { 5chdir 't' if -d 't'; 6unshift @INC, '../lib' if -d '../lib'; 7} 8} 9 10use strict; 11use Test::More qw(no_plan); 12 13my @modules = qw(SOAP::Lite 14 SOAP::Transport::HTTP 15 SOAP::Transport::MAILTO 16 SOAP::Transport::FTP 17 SOAP::Transport::TCP 18 SOAP::Transport::IO 19 SOAP::Transport::LOCAL 20 SOAP::Transport::POP3 21 XML::Parser::Lite 22 UDDI::Lite XMLRPC::Lite 23 XMLRPC::Transport::HTTP 24 XMLRPC::Transport::TCP 25 XMLRPC::Transport::POP3 26 SOAP::Packager 27 SOAP::Transport::MQ SOAP::Transport::JABBER 28 ); 29foreach (@modules) { 30 eval "require $_"; 31 32 if ($@ =~ /(Can\'t locate)|(XML::Parser::Lite requires)|(this is only version)|(load mod_perl)/) { 33 SKIP: { 34 skip("Module $_ does not exist or is breaking in an expected way", 1); 35 } 36 next; 37 } 38 39 is($@, '', "use $_") or warn $@; 40}