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

Remove setting of verbosity from tests

Browse source
This commit is contained in:
Adam Spiers 2011-11-18 12:00:05 +00:00
parent 3418cadb8e
commit a1246072dd
6 changed files with 0 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
t/cleanup_invalid_links.t
View file

@ -25,7 +25,6 @@ $Stow_Path= '../stow';
# nothing to clean in a simple tree # nothing to clean in a simple tree
# #
reset_state(); reset_state();
$Option{'verbose'} = 1;
make_dir('../stow/pkg1/bin1'); make_dir('../stow/pkg1/bin1');
make_file('../stow/pkg1/bin1/file1'); make_file('../stow/pkg1/bin1/file1');
@ -41,7 +40,6 @@ is(
# cleanup a bad link in a simple tree # cleanup a bad link in a simple tree
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin2'); make_dir('bin2');
make_dir('../stow/pkg2/bin2'); make_dir('../stow/pkg2/bin2');
@ -64,7 +62,6 @@ ok(
# dont cleanup a bad link not owned by stow # dont cleanup a bad link not owned by stow
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin3'); make_dir('bin3');
make_dir('../stow/pkg3/bin3'); make_dir('../stow/pkg3/bin3');

5
t/examples.t
View file

@ -43,7 +43,6 @@ make_file('stow/emacs/man/man1/emacs.1');
# stow perl into an empty target # stow perl into an empty target
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow/perl/bin'); make_dir('stow/perl/bin');
make_file('stow/perl/bin/perl'); make_file('stow/perl/bin/perl');
@ -70,7 +69,6 @@ ok(
# stow perl into a non-empty target # stow perl into a non-empty target
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
# clean up previous stow # clean up previous stow
remove_link('bin'); remove_link('bin');
@ -102,7 +100,6 @@ ok(
# Install perl into an empty target and then install emacs # Install perl into an empty target and then install emacs
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
# clean up previous stow # clean up previous stow
remove_link('info'); remove_link('info');
@ -155,7 +152,6 @@ ok(
# behaviour is the same as if the empty directory had nothing to do with stow # behaviour is the same as if the empty directory had nothing to do with stow
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow/pkg1a/bin1'); make_dir('stow/pkg1a/bin1');
make_dir('stow/pkg1b/bin1'); make_dir('stow/pkg1b/bin1');
@ -178,7 +174,6 @@ ok(
# directories # directories
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow2a/pkg2a/bin2'); make_dir('stow2a/pkg2a/bin2');
make_file('stow2a/pkg2a/bin2/file2a'); make_file('stow2a/pkg2a/bin2/file2a');

4
t/foldable.t Normal file → Executable file
View file

@ -25,7 +25,6 @@ $Stow_Path= '../stow';
# #
# can fold a simple tree # can fold a simple tree
# #
$Option{'verbose'} = 0;
make_dir('../stow/pkg1/bin1'); make_dir('../stow/pkg1/bin1');
make_file('../stow/pkg1/bin1/file1'); make_file('../stow/pkg1/bin1/file1');
@ -37,7 +36,6 @@ is( foldable('bin1'), '../stow/pkg1/bin1' => q(can fold a simple tree) );
# #
# can't fold an empty directory # can't fold an empty directory
# #
$Option{'verbose'} = 0;
make_dir('../stow/pkg2/bin2'); make_dir('../stow/pkg2/bin2');
make_file('../stow/pkg2/bin2/file2'); make_file('../stow/pkg2/bin2/file2');
@ -48,7 +46,6 @@ is( foldable('bin2'), '' => q(can't fold an empty directory) );
# #
# can't fold if dir contains a non-link # can't fold if dir contains a non-link
# #
$Option{'verbose'} = 0;
make_dir('../stow/pkg3/bin3'); make_dir('../stow/pkg3/bin3');
make_file('../stow/pkg3/bin3/file3'); make_file('../stow/pkg3/bin3/file3');
@ -61,7 +58,6 @@ is( foldable('bin3'), '' => q(can't fold a dir containing non-links) );
# #
# can't fold if links point to different directories # can't fold if links point to different directories
# #
$Option{'verbose'} = 0;
make_dir('bin4'); make_dir('bin4');
make_dir('../stow/pkg4a/bin4'); make_dir('../stow/pkg4a/bin4');

13
t/stow_contents.t
View file

@ -26,7 +26,6 @@ $Stow_Path= '../stow';
# stow a simple tree minimally # stow a simple tree minimally
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg1/bin1'); make_dir('../stow/pkg1/bin1');
make_file('../stow/pkg1/bin1/file1'); make_file('../stow/pkg1/bin1/file1');
@ -42,7 +41,6 @@ is(
# stow a simple tree into an existing directory # stow a simple tree into an existing directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg2/lib2'); make_dir('../stow/pkg2/lib2');
make_file('../stow/pkg2/lib2/file2'); make_file('../stow/pkg2/lib2/file2');
@ -59,7 +57,6 @@ is(
# unfold existing tree # unfold existing tree
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg3a/bin3'); make_dir('../stow/pkg3a/bin3');
make_file('../stow/pkg3a/bin3/file3a'); make_file('../stow/pkg3a/bin3/file3a');
@ -80,7 +77,6 @@ ok(
# Link to a new dir conflicts with existing non-dir (can't unfold) # Link to a new dir conflicts with existing non-dir (can't unfold)
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_file('bin4'); # this is a file but named like a directory make_file('bin4'); # this is a file but named like a directory
make_dir('../stow/pkg4/bin4'); make_dir('../stow/pkg4/bin4');
@ -95,7 +91,6 @@ like(
# Target already exists but is not owned by stow # Target already exists but is not owned by stow
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin5'); make_dir('bin5');
make_link('bin5/file5','../../empty'); make_link('bin5/file5','../../empty');
@ -110,7 +105,6 @@ like(
# Replace existing but invalid target # Replace existing but invalid target
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_link('file6','../stow/path-does-not-exist'); make_link('file6','../stow/path-does-not-exist');
make_dir('../stow/pkg6'); make_dir('../stow/pkg6');
@ -127,7 +121,6 @@ is(
# (can't unfold) # (can't unfold)
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin7'); make_dir('bin7');
make_dir('../stow/pkg7a/bin7'); make_dir('../stow/pkg7a/bin7');
@ -145,7 +138,6 @@ like(
# stowing directories named 0 # stowing directories named 0
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg8a/0'); make_dir('../stow/pkg8a/0');
make_file('../stow/pkg8a/0/file8a'); make_file('../stow/pkg8a/0/file8a');
@ -167,7 +159,6 @@ ok(
# overriding already stowed documentation # overriding already stowed documentation
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'override'} = ['man9', 'info9']; $Option{'override'} = ['man9', 'info9'];
make_dir('../stow/pkg9a/man9/man1'); make_dir('../stow/pkg9a/man9/man1');
@ -189,7 +180,6 @@ ok(
# deferring to already stowed documentation # deferring to already stowed documentation
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'defer'} = ['man10', 'info10']; $Option{'defer'} = ['man10', 'info10'];
make_dir('../stow/pkg10a/man10/man1'); make_dir('../stow/pkg10a/man10/man1');
@ -215,7 +205,6 @@ ok(
# Ignore temp files # Ignore temp files
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'ignore'} = ['~', '\.#.*']; $Option{'ignore'} = ['~', '\.#.*'];
make_dir('../stow/pkg11/man11/man1'); make_dir('../stow/pkg11/man11/man1');
@ -238,7 +227,6 @@ ok(
# stowing links library files # stowing links library files
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg12/lib12/'); make_dir('../stow/pkg12/lib12/');
make_file('../stow/pkg12/lib12/lib.so'); make_file('../stow/pkg12/lib12/lib.so');
@ -257,7 +245,6 @@ ok(
# unfolding to stow links to library files # unfolding to stow links to library files
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg13a/lib13/'); make_dir('../stow/pkg13a/lib13/');
make_file('../stow/pkg13a/lib13/liba.so'); make_file('../stow/pkg13a/lib13/liba.so');

11
t/unstow_contents.t
View file

@ -27,7 +27,6 @@ $Stow_Path= '../stow';
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg1/bin1'); make_dir('../stow/pkg1/bin1');
make_file('../stow/pkg1/bin1/file1'); make_file('../stow/pkg1/bin1/file1');
@ -45,7 +44,6 @@ ok(
# unstow a simple tree from an existing directory # unstow a simple tree from an existing directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('lib2'); make_dir('lib2');
make_dir('../stow/pkg2/lib2'); make_dir('../stow/pkg2/lib2');
@ -63,7 +61,6 @@ ok(
# fold tree after unstowing # fold tree after unstowing
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin3'); make_dir('bin3');
@ -87,7 +84,6 @@ ok(
# existing link is owned by stow but is invalid so it gets removed anyway # existing link is owned by stow but is invalid so it gets removed anyway
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin4'); make_dir('bin4');
make_dir('../stow/pkg4/bin4'); make_dir('../stow/pkg4/bin4');
@ -106,7 +102,6 @@ ok(
# Existing link is not owned by stow # Existing link is not owned by stow
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg5/bin5'); make_dir('../stow/pkg5/bin5');
make_link('bin5', '../not-stow'); make_link('bin5', '../not-stow');
@ -120,7 +115,6 @@ like(
# Target already exists, is owned by stow, but points to a different package # Target already exists, is owned by stow, but points to a different package
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin6'); make_dir('bin6');
make_dir('../stow/pkg6a/bin6'); make_dir('../stow/pkg6a/bin6');
@ -142,7 +136,6 @@ ok(
# Don't unlink anything under the stow directory # Don't unlink anything under the stow directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow'); # make out stow dir a subdir of target make_dir('stow'); # make out stow dir a subdir of target
$Stow_Path = 'stow'; $Stow_Path = 'stow';
@ -169,7 +162,6 @@ ok(
# Don't unlink any nodes under another stow directory # Don't unlink any nodes under another stow directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow'); # make out stow dir a subdir of target make_dir('stow'); # make out stow dir a subdir of target
$Stow_Path = 'stow'; $Stow_Path = 'stow';
@ -200,7 +192,6 @@ ok(
# #
reset_state(); reset_state();
$Stow_Path = '../stow'; $Stow_Path = '../stow';
$Option{'verbose'} = 0;
$Option{'override'} = ['man9', 'info9']; $Option{'override'} = ['man9', 'info9'];
make_dir('../stow/pkg9a/man9/man1'); make_dir('../stow/pkg9a/man9/man1');
@ -222,7 +213,6 @@ ok(
# deferring to already stowed documentation # deferring to already stowed documentation
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'defer'} = ['man10', 'info10']; $Option{'defer'} = ['man10', 'info10'];
make_dir('../stow/pkg10a/man10/man1'); make_dir('../stow/pkg10a/man10/man1');
@ -254,7 +244,6 @@ ok(
# Ignore temp files # Ignore temp files
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'ignore'} = ['~', '\.#.*']; $Option{'ignore'} = ['~', '\.#.*'];
make_dir('../stow/pkg12/man12/man1'); make_dir('../stow/pkg12/man12/man1');

11
t/unstow_contents_orig.t
View file

@ -27,7 +27,6 @@ $Stow_Path= '../stow';
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg1/bin1'); make_dir('../stow/pkg1/bin1');
make_file('../stow/pkg1/bin1/file1'); make_file('../stow/pkg1/bin1/file1');
@ -45,7 +44,6 @@ ok(
# unstow a simple tree from an existing directory # unstow a simple tree from an existing directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('lib2'); make_dir('lib2');
make_dir('../stow/pkg2/lib2'); make_dir('../stow/pkg2/lib2');
@ -63,7 +61,6 @@ ok(
# fold tree after unstowing # fold tree after unstowing
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin3'); make_dir('bin3');
@ -87,7 +84,6 @@ ok(
# existing link is owned by stow but is invalid so it gets removed anyway # existing link is owned by stow but is invalid so it gets removed anyway
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin4'); make_dir('bin4');
make_dir('../stow/pkg4/bin4'); make_dir('../stow/pkg4/bin4');
@ -106,7 +102,6 @@ ok(
# Existing link is not owned by stow # Existing link is not owned by stow
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('../stow/pkg5/bin5'); make_dir('../stow/pkg5/bin5');
make_link('bin5', '../not-stow'); make_link('bin5', '../not-stow');
@ -124,7 +119,6 @@ ok(
# Target already exists, is owned by stow, but points to a different package # Target already exists, is owned by stow, but points to a different package
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('bin6'); make_dir('bin6');
make_dir('../stow/pkg6a/bin6'); make_dir('../stow/pkg6a/bin6');
@ -146,7 +140,6 @@ ok(
# Don't unlink anything under the stow directory # Don't unlink anything under the stow directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow'); # make out stow dir a subdir of target make_dir('stow'); # make out stow dir a subdir of target
$Stow_Path = 'stow'; $Stow_Path = 'stow';
@ -173,7 +166,6 @@ ok(
# Don't unlink any nodes under another stow directory # Don't unlink any nodes under another stow directory
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
make_dir('stow'); # make out stow dir a subdir of target make_dir('stow'); # make out stow dir a subdir of target
$Stow_Path = 'stow'; $Stow_Path = 'stow';
@ -204,7 +196,6 @@ ok(
# #
reset_state(); reset_state();
$Stow_Path = '../stow'; $Stow_Path = '../stow';
$Option{'verbose'} = 0;
$Option{'override'} = ['man9', 'info9']; $Option{'override'} = ['man9', 'info9'];
make_dir('../stow/pkg9a/man9/man1'); make_dir('../stow/pkg9a/man9/man1');
@ -226,7 +217,6 @@ ok(
# deferring to already stowed documentation # deferring to already stowed documentation
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'defer'} = ['man10', 'info10']; $Option{'defer'} = ['man10', 'info10'];
make_dir('../stow/pkg10a/man10/man1'); make_dir('../stow/pkg10a/man10/man1');
@ -258,7 +248,6 @@ ok(
# Ignore temp files # Ignore temp files
# #
reset_state(); reset_state();
$Option{'verbose'} = 0;
$Option{'ignore'} = ['~', '\.#.*']; $Option{'ignore'} = ['~', '\.#.*'];
make_dir('../stow/pkg12/man12/man1'); make_dir('../stow/pkg12/man12/man1');