06-modules.t   [plain text]

#!/bin/env perl 

BEGIN {
  unless(grep /blib/, @INC) {
    chdir 't' if -d 't';
    unshift @INC, '../lib' if -d '../lib';
  }
}

use strict;
use Test;

BEGIN { plan tests => 19 }

foreach (qw(SOAP::Lite SOAP::Transport::HTTP SOAP::Transport::MAILTO
            SOAP::Transport::FTP SOAP::Transport::TCP SOAP::Transport::IO
            SOAP::Transport::LOCAL SOAP::Transport::POP3 XML::Parser::Lite
            UDDI::Lite XMLRPC::Lite XMLRPC::Transport::HTTP 
            XMLRPC::Transport::TCP XMLRPC::Transport::POP3 Apache::XMLRPC::Lite
            SOAP::Packager SOAP::Transport::MQ SOAP::Transport::JABBER
            Apache::SOAP)) {
  eval "require $_";
  print $@;
  $@ =~ /(Can\'t locate)|(XML::Parser::Lite requires)|(this is only version)|(load mod_perl)/ 
    ? skip($@ => undef)
    : ok(!$@);
}