diff options
author | Adam Spiers <stow@adamspiers.org> | 2019-06-28 10:32:18 +0100 |
---|---|---|
committer | Adam Spiers <stow@adamspiers.org> | 2019-06-28 15:24:50 +0100 |
commit | e4f6a6742b6803a2ea47af095a4bf8455d3821d5 (patch) | |
tree | b789baa1045636f1a7964f361dd9dcbb7aa711b9 | |
parent | 6233298a9112f8637a9a99e3590ef1d2b2e96b84 (diff) | |
download | stow-e4f6a6742b6803a2ea47af095a4bf8455d3821d5.tar.gz |
Add examples of how to enable debugging in tests
-rwxr-xr-x | t/find_stowed_path.t | 6 | ||||
-rwxr-xr-x | t/stow.t | 3 |
2 files changed, 6 insertions, 3 deletions
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') ], @@ -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'); |