Create package for test-related code.

1 files changed, 1 insertions, 24 deletions

diff --git a/t/924903.t b/t/924903.t
index fa70834..710ea39 100644
--- a/t/924903.t
+++ b/t/924903.t
@@ -2,31 +2,8 @@
 use strict;
 use warnings;
 use Test::More tests => 3;
-use File::Path qw(remove_tree);
-use File::Copy::Recursive qw(dircopy);
 use File::stat;
-use Cwd;
-
-my $root = Cwd::cwd;
-$ENV{PATH} = "$root:$ENV{PATH}";
-$ENV{DH_AUTOSCRIPTDIR} = $root;
-
-sub prepare_source_package {
-    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}";
-    dircopy($srcdir, $testdir);
-    chdir($testdir);
-    return $testdir;
-}
-
-sub system_ok {
-    ok(system(@_) == 0, "external command @_");
-}
-
-prepare_source_package();
+use T;
 
 system_ok('dh_runit', 'debian/test.runscript', 'name=test');
 my $path = 'debian/dh-runit-test/var/lib/runit/supervise/test';