Fix left-join chaining
[dbsrgits/DBIx-Class.git] / maint / gen-tests.pl
1 #!/usr/bin/perl
2
3 die "must be run from DBIx::Class root dir" unless -d 't/run';
4
5 gen_tests($_) for qw/BasicRels HelperRels/;
6
7 sub gen_tests {
8     my $variant = shift;
9     my $dir = lc $variant;
10     system("rm -f t/$dir/*.t");
11     
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 $!;
14         print $fh <<"EOF";
15 use Test::More;
16 use lib qw(t/lib);
17 use DBICTest;
18 use DBICTest::$variant;
19
20 require "t/run/${test}.tl";
21 run_tests(DBICTest->schema);
22 EOF
23     close $fh;
24     }
25 }