Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (18 sloc) 475 Bytes
#!perl -w
use strict;
use Test::More;
use File::Find;
my @modules;
find( sub {
return unless /\.pm$/; local $_ = $File::Find::name;
s!^lib/!!; s!/!::!g; s/\.pm$//;
push @modules, $_;
}, 'lib/Act' );
plan tests => scalar(@modules);
# Apache::Constants only works under mod_perl
package Apache::Constants;
use constant OK => 0;
use constant DECLINED => -1;
use constant DONE => -2;
package main;
require_ok($_) for @modules;
Something went wrong with that request. Please try again.