blob: 851c5ef559ccb66d913ec00b326275b796436537 (
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl
use strict;
use Test::More;
use File::Basename ();
# Let the tests be run from anywhere, but current directory
# is expected to be the one where this test lives in.
chdir File::Basename::dirname($0) or die "Unable to chdir to ".File::Basename::dirname($0);
my $TOPDIR = "../..";
my $rootcmd;
if ($< == 0) {
$rootcmd = '';
}
else {
system("fakeroot true 2>/dev/null");
$rootcmd = $? ? undef : 'fakeroot';
}
if (not defined($rootcmd)) {
plan skip_all => 'fakeroot required';
}
else {
plan(tests => 5);
}
# Verify dh_missing does not fail when all files are installed.
system("$TOPDIR/dh_clean");
system("$rootcmd make install");
system("PATH=$TOPDIR:\$PATH $rootcmd $TOPDIR/dh_install");
is(system("$rootcmd $TOPDIR/dh_missing --fail-missing"), 0, 'dh_missing failed');
# Verify dh_missing does fail when not all files are installed.
system("$rootcmd $TOPDIR/dh_clean");
system("$rootcmd make installmore");
system("PATH=$TOPDIR:\$PATH $rootcmd $TOPDIR/dh_install");
system("$rootcmd $TOPDIR/dh_missing --fail-missing >/dev/null 2>&1");
isnt($?, -1, 'dh_missing was executed');
ok(! ($? & 127), 'dh_missing did not die due to a signal');
my $exitcode = ($? >> 8);
is($exitcode, 2, 'dh_missing exited with exit code 2');
# Verify that dh_install -X --fail-missing is passed through to dh_missing (#863447)
# dh_install -Xfile makes file-for-foo not be installed. Then we shouldn't
# complain about it not being missing.
system("$rootcmd $TOPDIR/dh_clean");
system("$rootcmd make install");
is(system("PATH=$TOPDIR:\$PATH $rootcmd $TOPDIR/dh_install -X more --exclude lots --fail-missing"),0, 'dh_install -X... --fail-missing failed');
system("$rootcmd $TOPDIR/dh_clean");
# Local Variables:
# indent-tabs-mode: t
# tab-width: 4
# cperl-indent-level: 4
# End:
|
