diff options
Diffstat (limited to '')
| -rw-r--r-- | t/dh_movetousr/dh_movetousr.t | 81 |
1 files changed, 81 insertions, 0 deletions
diff --git a/t/dh_movetousr/dh_movetousr.t b/t/dh_movetousr/dh_movetousr.t new file mode 100644 index 0000000..ea2b943 --- /dev/null +++ b/t/dh_movetousr/dh_movetousr.t @@ -0,0 +1,81 @@ +#!/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(remove_tree make_path); +use Debian::Debhelper::Dh_Lib qw(make_symlink_raw_target); + +plan(tests => 1); + +each_compat_subtest { + my ($compat) = @_; + make_path('debian/debhelper'); + # Don't fail on an empty package. + ok(run_dh_tool('dh_movetousr')); + make_path('debian/debhelper/lib/foo'); + make_path('debian/debhelper/lib/bar'); + make_path('debian/debhelper/usr/lib/bar'); + make_path('debian/debhelper/sbin'); + create_empty_file('debian/debhelper/lib/foo/bar'); + create_empty_file('debian/debhelper/lib/bar/foo'); + create_empty_file('debian/debhelper/usr/lib/bar/bar'); + make_symlink_raw_target('/foo', 'debian/debhelper/lib/foo/abs1'); + make_symlink_raw_target('/sbin/foo', 'debian/debhelper/lib/foo/abs2'); + make_symlink_raw_target('bar', 'debian/debhelper/lib/foo/rel1'); + make_symlink_raw_target('../bar', 'debian/debhelper/lib/foo/rel2'); + make_symlink_raw_target('../../bar', 'debian/debhelper/lib/foo/rel3'); + make_symlink_raw_target('../../../bar', 'debian/debhelper/lib/foo/rel4'); + make_symlink_raw_target('/usr/bin/bar', 'debian/debhelper/sbin/foo'); + make_symlink_raw_target('dead', 'debian/debhelper/usr/lib/rel'); + make_symlink_raw_target('/etc', 'debian/debhelper/usr/lib/abs1'); + make_symlink_raw_target('/sbin/foo', 'debian/debhelper/usr/lib/abs2'); + ok(run_dh_tool('dh_movetousr', '--fail-noop')); + # Files get moved. + ok(! -e 'debian/debhelper/lib'); + ok(! -e 'debian/debhelper/sbin'); + ok(-d 'debian/debhelper/usr/lib/foo'); + ok(-d 'debian/debhelper/usr/lib/bar'); + ok(-d 'debian/debhelper/usr/sbin'); + # Preexisting file is not clobbered. + ok(-e 'debian/debhelper/usr/lib/bar/bar'); + # Other entry is moved. + ok(-e 'debian/debhelper/usr/lib/bar/foo'); + # Absolute link is moved as absolute. + ok(-l 'debian/debhelper/usr/lib/foo/abs1'); + ok(readlink('debian/debhelper/usr/lib/foo/abs1') eq '/foo'); + # ... unless the target is aliased. + ok (-l 'debian/debhelper/usr/lib/foo/abs2'); + ok(readlink('debian/debhelper/usr/lib/foo/abs2') eq '../../sbin/foo'); + # A contained relative symlink shall remain relative. + ok(-l 'debian/debhelper/usr/lib/foo/rel1'); + ok(readlink('debian/debhelper/usr/lib/foo/rel1') eq 'bar'); + # A relative symlink not crossing / shall remain relative. + ok(-l 'debian/debhelper/usr/lib/foo/rel2'); + ok(readlink('debian/debhelper/usr/lib/foo/rel2') eq '../bar'); + # A relative symlink hitting / shall become absolute. + ok(-l 'debian/debhelper/usr/lib/foo/rel3'); + ok(readlink('debian/debhelper/usr/lib/foo/rel3') eq '/bar'); + # A relative symlink going through /.. shall also become absolute. + ok(-l 'debian/debhelper/usr/lib/foo/rel4'); + ok(readlink('debian/debhelper/usr/lib/foo/rel4') eq '/bar'); + # An absolute link pointing into /usr has to become relative due to + # policy 10.5. + ok(-l 'debian/debhelper/usr/sbin/foo'); + ok(readlink('debian/debhelper/usr/sbin/foo') eq '../bin/bar'); + # Relative link within /usr is left alone. + ok(-l 'debian/debhelper/usr/lib/rel'); + ok(readlink('debian/debhelper/usr/lib/rel') eq 'dead'); + # Absolute link not pointing into aliased is left alone. + ok(-l 'debian/debhelper/usr/lib/abs1'); + ok(readlink('debian/debhelper/usr/lib/abs1') eq '/etc'); + # Absolute link pointing into aliased becomes relative. + ok(-l 'debian/debhelper/usr/lib/abs2'); + ok(readlink('debian/debhelper/usr/lib/abs2') eq '../sbin/foo'); + ok(!run_dh_tool({ quiet => 1 }, 'dh_movetousr', '--fail-noop')); + ok(run_dh_tool('dh_movetousr')); + remove_tree('debian/debhelper'); +}; |