[scpubgit/DX.git] / t / 00load_all.t

use strictures 2;
use Test::More;
use IO::All;

foreach my $file (io('lib')->all_files(0)) {
  (my $name = $file->name) =~ s/^lib\///;
  ok(eval { require $name; 1 }, "${file} loaded ok");
  warn $@ if $@;
}

done_testing;
Commit	Line	Data
4fe1d01f	1	use strictures 2;
9d759b64	2	use Test::More;
	3	use IO::All;
	4
	5	foreach my $file (io('lib')->all_files(0)) {
	6	(my $name = $file->name) =~ s/^lib\///;
	7	ok(eval { require $name; 1 }, "${file} loaded ok");
	8	warn $@ if $@;
	9	}
	10
	11	done_testing;