blob: 4e76799c1914435a85ecf4f16b9bec90300554aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use File::Basename qw(dirname);
use lib dirname(dirname(__FILE__));
use Test::DH;
use File::Path qw(make_path);
use Debian::Debhelper::Dh_Lib qw(!dirname);
plan(tests => 2);
our @TEST_DH_EXTRA_TEMPLATE_FILES = (qw(
debian/changelog
debian/control
debian/foo.pam
));
each_compat_up_to_and_incl_subtest(13, sub {
make_path(qw(debian/foo));
ok(run_dh_tool('dh_installpam'));
ok(-f 'debian/foo/etc/pam.d/foo');
ok(! -f 'debian/foo/usr/lib/pam.d/foo');
ok(run_dh_tool('dh_clean'));
});
each_compat_from_and_above_subtest(14, sub {
make_path(qw(debian/foo));
ok(run_dh_tool('dh_installpam'));
ok(! -f 'debian/foo/etc/pam.d/foo');
ok(-f 'debian/foo/usr/lib/pam.d/foo');
ok(run_dh_tool('dh_clean'));
});
|
