diff options
author | Dmitry Bogatov <KAction@debian.org> | 2019-05-14 11:56:46 +0000 |
---|---|---|
committer | Dmitry Bogatov <KAction@debian.org> | 2019-05-14 11:56:46 +0000 |
commit | ff2177c68252c80e75c2e0fbc4d40e8193d4cb36 (patch) | |
tree | fe5c4e7b5e8d8f9081c7438ee4c0e03415c6c14d /T.pm | |
parent | 365f18bb70df268de5933176e55f4315295b62c7 (diff) |
Create package for test-related code.
Diffstat (limited to 'T.pm')
-rw-r--r-- | T.pm | 27 |
1 files changed, 27 insertions, 0 deletions
@@ -0,0 +1,27 @@ | |||
1 | package T; | ||
2 | use strict; | ||
3 | use warnings; | ||
4 | use Cwd; | ||
5 | use Test::More; | ||
6 | use File::Copy::Recursive qw(dircopy); | ||
7 | use File::Path qw(remove_tree); | ||
8 | use Exporter; | ||
9 | our @ISA = qw(Exporter); | ||
10 | our @EXPORT = qw(system_ok); | ||
11 | |||
12 | my $root = Cwd::cwd; | ||
13 | $ENV{PATH} = "$root:$ENV{PATH}"; | ||
14 | $ENV{DH_AUTOSCRIPTDIR} = $root; | ||
15 | |||
16 | die '$0 does not match expected format' | ||
17 | unless ($0 =~ m#t/([0-9]+)\.t#); | ||
18 | my $number = $1; | ||
19 | my $srcdir = (-d "t/base/${number}") ? "t/base/${number}" : "t/base/default"; | ||
20 | my $testdir = "t/${number}"; | ||
21 | remove_tree($testdir); | ||
22 | dircopy($srcdir, $testdir); | ||
23 | chdir($testdir); | ||
24 | |||
25 | sub system_ok { ok(system(@_) == 0, "external command @_");} | ||
26 | |||
27 | 1; | ||