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}