00dani/stow
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactored reset_state() into t/util.pm

Browse source
This commit is contained in:
Adam Spiers 2011-11-17 18:46:13 +00:00
parent aefaad37a4
commit 497f272c12
6 changed files with 18 additions and 50 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
t/cleanup_invalid_links.t
View file

@ -10,16 +10,6 @@ BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
use Test::More tests => 3;
use English qw(-no_match_vars);
# local utility
sub reset_state {
@Tasks = ();
@Conflicts = ();
%Link_Task_For = ();
%Dir_Task_For = ();
%Option = ();
return;
}
### setup
eval { remove_dir('t/target'); };
eval { remove_dir('t/stow'); };

10
t/examples.t
View file

@ -10,16 +10,6 @@ BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
use Test::More tests => 4;
use English qw(-no_match_vars);
# local utility
sub reset_state {
@Tasks = ();
@Conflicts = ();
%Link_Task_For = ();
%Dir_Task_For = ();
%Option = ();
return;
}
### setup
eval { remove_dir('t/target'); };
make_dir('t/target/stow');

10
t/stow_contents.t
View file

@ -11,16 +11,6 @@ use Test::More tests => 14;
use Test::Output;
use English qw(-no_match_vars);
# local utility
sub reset_state {
@Tasks = ();
@Conflicts = ();
%Link_Task_For = ();
%Dir_Task_For = ();
%Option = ();
return;
}
### setup
eval { remove_dir('t/target'); };
eval { remove_dir('t/stow'); };

10
t/unstow_contents.t
View file

@ -11,16 +11,6 @@ use Test::More tests => 14;
use Test::Output;
use English qw(-no_match_vars);
# local utility
sub reset_state {
@Tasks = ();
@Conflicts = ();
%Link_Task_For = ();
%Dir_Task_For = ();
%Option = ();
return;
}
### setup
eval { remove_dir('t/target'); };
eval { remove_dir('t/stow'); };

10
t/unstow_contents_orig.t
View file

@ -11,16 +11,6 @@ use Test::More tests => 14;
use Test::Output;
use English qw(-no_match_vars);
# local utility
sub reset_state {
@Tasks = ();
@Conflicts = ();
%Link_Task_For = ();
%Dir_Task_For = ();
%Option = ();
return;
}
### setup
eval { remove_dir('t/target'); };
eval { remove_dir('t/stow'); };

18
t/util.pm
View file

@ -7,6 +7,24 @@
use strict;
use warnings;
#===== SUBROUTINE ===========================================================
# Name : reset_state()
# Purpose : reset internal state machine
# Parameters: none
# Returns : n/a
# Throws : n/a
# Comments : none
#============================================================================
sub reset_state {
@::Tasks = ();
@::Conflicts = ();
%::Link_Task_For = ();
%::Dir_Task_For = ();
%::Option = ();
return;
}
#===== SUBROUTINE ===========================================================
# Name : make_link()
# Purpose : safely create a link