diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 6dc85eff3..bce8ded59 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -110,6 +110,13 @@ proc cleanup {} {
 }
 
 proc execute_everything {} {
+    if 1 {
+        # Use this when hacking on new tests.
+        set ::verbose 1
+        execute_tests "unit/first"
+        return
+    }
+
     execute_tests "unit/printver"
     execute_tests "unit/auth"
     execute_tests "unit/protocol"