[scpubgit/App-SCS.git] / t / 01load.t

use strictures 1;
use Test::More;
use Test::SharedFork;
use IO::All;

foreach my $module (grep $_->name =~ /\.pm$/, io->dir('lib')->all_files(0)) {
  unless (fork) {
    ok(eval { require $module }, "${module} loaded ok");
    warn $@ if $@;
    exit 0;
  }
  waitpid(-1, 0);
}

done_testing;
Commit	Line	Data
632f0e07	1	use strictures 1;
	2	use Test::More;
	3	use Test::SharedFork;
	4	use IO::All;
	5
	6	foreach my $module (grep $_->name =~ /\.pm$/, io->dir('lib')->all_files(0)) {
	7	unless (fork) {
	8	ok(eval { require $module }, "${module} loaded ok");
	9	warn $@ if $@;
	10	exit 0;
	11	}
	12	waitpid(-1, 0);
	13	}
	14
	15	done_testing;