Test unstowing stuff which doesn't exist in the target tree.
This commit is contained in:
parent
eda2b83355
commit
6e7ed071c1
2 changed files with 62 additions and 8 deletions
|
@ -7,7 +7,7 @@
|
||||||
# load as a library
|
# load as a library
|
||||||
BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
|
BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
|
||||||
|
|
||||||
use Test::More tests => 14;
|
use Test::More tests => 18;
|
||||||
use Test::Output;
|
use Test::Output;
|
||||||
use English qw(-no_match_vars);
|
use English qw(-no_match_vars);
|
||||||
|
|
||||||
|
@ -191,6 +191,7 @@ ok(
|
||||||
# overriding already stowed documentation
|
# overriding already stowed documentation
|
||||||
#
|
#
|
||||||
reset_state();
|
reset_state();
|
||||||
|
make_file('stow/.stow');
|
||||||
$Stow_Path = '../stow';
|
$Stow_Path = '../stow';
|
||||||
$Option{'override'} = ['man9', 'info9'];
|
$Option{'override'} = ['man9', 'info9'];
|
||||||
|
|
||||||
|
@ -264,10 +265,36 @@ ok(
|
||||||
#
|
#
|
||||||
# Unstow an already unstowed package
|
# Unstow an already unstowed package
|
||||||
#
|
#
|
||||||
|
reset_state();
|
||||||
unstow_contents('../stow/pkg12', '.');
|
unstow_contents('../stow/pkg12', '.');
|
||||||
process_tasks();
|
stderr_like(
|
||||||
ok(scalar(@Conflicts) == 0);
|
sub { process_tasks(); },
|
||||||
|
qr/There are no outstanding operations to perform/,
|
||||||
|
'no tasks to process when unstowing pkg12'
|
||||||
|
);
|
||||||
|
ok(
|
||||||
|
scalar(@Conflicts) == 0
|
||||||
|
=> 'unstow already unstowed package pkg12'
|
||||||
|
);
|
||||||
|
|
||||||
|
#
|
||||||
|
# Unstow a never stowed package
|
||||||
|
#
|
||||||
|
|
||||||
|
eval { remove_dir('t/target'); };
|
||||||
|
mkdir('t/target');
|
||||||
|
|
||||||
|
reset_state();
|
||||||
|
unstow_contents('../stow/pkg12', '.');
|
||||||
|
stderr_like(
|
||||||
|
sub { process_tasks(); },
|
||||||
|
qr/There are no outstanding operations to perform/,
|
||||||
|
'no tasks to process when unstowing pkg12 which was never stowed'
|
||||||
|
);
|
||||||
|
ok(
|
||||||
|
scalar(@Conflicts) == 0
|
||||||
|
=> 'unstow never stowed package pkg12'
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
# Todo
|
# Todo
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
# load as a library
|
# load as a library
|
||||||
BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
|
BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
|
||||||
|
|
||||||
use Test::More tests => 14;
|
use Test::More tests => 18;
|
||||||
use Test::Output;
|
use Test::Output;
|
||||||
use English qw(-no_match_vars);
|
use English qw(-no_match_vars);
|
||||||
|
|
||||||
|
@ -195,6 +195,7 @@ ok(
|
||||||
# overriding already stowed documentation
|
# overriding already stowed documentation
|
||||||
#
|
#
|
||||||
reset_state();
|
reset_state();
|
||||||
|
make_file('stow/.stow');
|
||||||
$Stow_Path = '../stow';
|
$Stow_Path = '../stow';
|
||||||
$Option{'override'} = ['man9', 'info9'];
|
$Option{'override'} = ['man9', 'info9'];
|
||||||
|
|
||||||
|
@ -268,10 +269,36 @@ ok(
|
||||||
#
|
#
|
||||||
# Unstow an already unstowed package
|
# Unstow an already unstowed package
|
||||||
#
|
#
|
||||||
|
reset_state();
|
||||||
|
unstow_contents_orig('../stow/pkg12', '.');
|
||||||
|
stderr_like(
|
||||||
|
sub { process_tasks(); },
|
||||||
|
qr/There are no outstanding operations to perform/,
|
||||||
|
'no tasks to process when unstowing pkg12'
|
||||||
|
);
|
||||||
|
ok(
|
||||||
|
scalar(@Conflicts) == 0
|
||||||
|
=> 'unstow already unstowed package pkg12'
|
||||||
|
);
|
||||||
|
|
||||||
unstow_contents('../stow/pkg12', '.');
|
#
|
||||||
process_tasks();
|
# Unstow a never stowed package
|
||||||
ok(scalar(@Conflicts) == 0);
|
#
|
||||||
|
|
||||||
|
eval { remove_dir('t/target'); };
|
||||||
|
mkdir('t/target');
|
||||||
|
|
||||||
|
reset_state();
|
||||||
|
unstow_contents_orig('../stow/pkg12', '.');
|
||||||
|
stderr_like(
|
||||||
|
sub { process_tasks(); },
|
||||||
|
qr/There are no outstanding operations to perform/,
|
||||||
|
'no tasks to process when unstowing pkg12 which was never stowed'
|
||||||
|
);
|
||||||
|
ok(
|
||||||
|
scalar(@Conflicts) == 0
|
||||||
|
=> 'unstow never stowed package pkg12'
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
# Todo
|
# Todo
|
||||||
|
|
Loading…
Reference in a new issue