From: Peter Rabbitson Date: Thu, 8 Jul 2010 12:25:42 +0000 (+0200) Subject: The support structure for this was deleted in 2006 X-Git-Tag: v0.08124~120 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b6b29697587f3a64a000c65486b3a648e99b34f;p=dbsrgits%2FDBIx-Class.git The support structure for this was deleted in 2006 --- diff --git a/maint/gen-tests.pl b/maint/gen-tests.pl deleted file mode 100755 index 48e71a7..0000000 --- a/maint/gen-tests.pl +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl - -die "must be run from DBIx::Class root dir" unless -d 't/run'; - -gen_tests($_) for qw/BasicRels HelperRels/; - -sub gen_tests { - my $variant = shift; - my $dir = lc $variant; - system("rm -f t/$dir/*.t"); - - foreach my $test (map { m[^t/run/(.+)\.tl$]; $1 } split(/\n/, `ls t/run/*.tl`)) { - open(my $fh, '>', "t/$dir/${test}.t") or die $!; - print $fh <<"EOF"; -use Test::More; -use lib qw(t/lib); -use DBICTest; -use DBICTest::$variant; - -require "t/run/${test}.tl"; -run_tests(DBICTest->schema); -EOF - close $fh; - } -}