1 files changed, 27 insertions, 0 deletions

diff --git a/T.pm b/T.pm
new file mode 100644
index 0000000..4178fd8
--- /dev/null
+++ b/T.pm
@@ -0,0 +1,27 @@
+package T;
+use strict;
+use warnings;
+use Cwd;
+use Test::More;
+use File::Copy::Recursive qw(dircopy);
+use File::Path qw(remove_tree);
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(system_ok);
+
+my $root = Cwd::cwd;
+$ENV{PATH} = "$root:$ENV{PATH}";
+$ENV{DH_AUTOSCRIPTDIR} = $root;
+
+die '$0 does not match expected format'
+    unless ($0 =~ m#t/([0-9]+)\.t#);
+my $number = $1;
+my $srcdir = (-d "t/base/${number}") ? "t/base/${number}" : "t/base/default";
+my $testdir = "t/${number}";
+remove_tree($testdir);
+dircopy($srcdir, $testdir);
+chdir($testdir);
+
+sub system_ok { ok(system(@_) == 0, "external command @_");}
+
+1;