Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

36 lines (25 sloc) 0.801 kb
#!/usr/bin/perl
# $Id$
use strict;
use vars qw(@MODULES @APACHE_MODULES $do_apache);
use Test::More;
# Verify that the individual modules will load
BEGIN
{
@MODULES = qw(RPC::XML RPC::XML::Parser
RPC::XML::Procedure RPC::XML::Method
RPC::XML::Client RPC::XML::Server);
@APACHE_MODULES = qw(Apache::RPC::Server Apache::RPC::Status);
# If mod_perl is not available, Apache::RPC::Server cannot be blamed
eval "use Apache";
$do_apache = $@ ? 0 : 1;
plan tests => (scalar(@MODULES) + scalar(@APACHE_MODULES));
}
# Core modules
use_ok($_) for (@MODULES);
# Test these only if Apache (v1) is available
SKIP: {
skip "No mod_perl 1.X detected", scalar(@APACHE_MODULES) unless $do_apache;
use_ok($_) for (@APACHE_MODULES);
}
exit 0;
Jump to Line
Something went wrong with that request. Please try again.