3 die "must be run from DBIx::Class root dir" unless -d 't/run';
5 gen_tests($_) for qw/BasicRels HelperRels/;
10 system("rm -f t/$dir/*.t");
12 foreach my $test (map { m[^t/run/(.+)\.tl$]; $1 } split(/\n/, `ls t/run/*.tl`)) {
13 open(my $fh, '>', "t/$dir/${test}.t") or die $!;
18 use DBICTest::$variant;
20 require "t/run/${test}.tl";
21 run_tests(DBICTest->schema);