summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdam Spiers <stow@adamspiers.org>2019-06-28 10:32:18 +0100
committerAdam Spiers <stow@adamspiers.org>2019-06-28 15:24:50 +0100
commite4f6a6742b6803a2ea47af095a4bf8455d3821d5 (patch)
treeb789baa1045636f1a7964f361dd9dcbb7aa711b9
parent6233298a9112f8637a9a99e3590ef1d2b2e96b84 (diff)
downloadstow-e4f6a6742b6803a2ea47af095a4bf8455d3821d5.tar.gz
Add examples of how to enable debugging in tests
-rwxr-xr-xt/find_stowed_path.t6
-rwxr-xr-xt/stow.t3
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') ],
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');