diff --git a/t/find_stowed_path.t b/t/find_stowed_path.t index 8111e66..968799a 100755 --- a/t/find_stowed_path.t +++ b/t/find_stowed_path.t @@ -22,13 +22,15 @@ use strict; use warnings; -use testutil; - use Test::More tests => 6; +use testutil; +use Stow::Util qw(set_debug_level); + init_test_dirs(); my $stow = new_Stow(dir => "$TEST_DIR/stow"); +#set_debug_level(4); is_deeply( [ $stow->find_stowed_path("$TEST_DIR/target/a/b/c", '../../../stow/a/b/c') ], diff --git a/t/stow.t b/t/stow.t index 1755e19..0563457 100755 --- a/t/stow.t +++ b/t/stow.t @@ -26,7 +26,7 @@ use Test::More tests => 118; use Test::Output; use English qw(-no_match_vars); -use Stow::Util qw(canon_path); +use Stow::Util qw(canon_path set_debug_level); use testutil; init_test_dirs(); @@ -228,6 +228,7 @@ is( # (can't unfold) # $stow = new_Stow(); +#set_debug_level(4); make_path('bin7'); make_path('../stow/pkg7a/bin7');