From ff2177c68252c80e75c2e0fbc4d40e8193d4cb36 Mon Sep 17 00:00:00 2001
From: Dmitry Bogatov <KAction@debian.org>
Date: Tue, 14 May 2019 11:56:46 +0000
Subject: Create package for test-related code.

---
 T.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 T.pm

(limited to 'T.pm')

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;
-- 
cgit v1.2.3