diff --git a/stow.in b/stow.in
index 4b68246..704fe64 100755
--- a/stow.in
+++ b/stow.in
@@ -263,7 +263,10 @@ sub process_options {
 #=============================================================================
 sub debug {
     my ($level, $msg) = @_;
-    if ($Option{'verbose'} >= $level) {
+    if ($Option{'testmode'}) {
+        print "# $msg\n" if $ENV{TEST_VERBOSE};
+    }
+    elsif ($Option{'verbose'} >= $level) {
         warn "$msg\n";
     }
 }
diff --git a/t/util.pm b/t/util.pm
index 0beade9..7241cf6 100755
--- a/t/util.pm
+++ b/t/util.pm
@@ -21,7 +21,7 @@ sub reset_state {
     @::Conflicts      = ();
     %::Link_Task_For  = ();
     %::Dir_Task_For   = ();
-    %::Option         = ();
+    %::Option         = ( testmode => 1 );
     return;
 }