From e4f6a6742b6803a2ea47af095a4bf8455d3821d5 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Fri, 28 Jun 2019 10:32:18 +0100
Subject: [PATCH] Add examples of how to enable debugging in tests

---
 t/find_stowed_path.t | 6 ++++--
 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') ],
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');