diff --git a/Test.hs b/Test.hs
index ff383710e4..4c7281fce5 100644
--- a/Test.hs
+++ b/Test.hs
@@ -79,8 +79,8 @@ main = do
 	directenv <- prepare True
 	let tests = testGroup "Tests"
 		[ localOption (QuickCheckTests 1000) properties
-		, unitTests indirectenv "(indirect)"
 		, unitTests directenv "(direct)"
+		, unitTests indirectenv "(indirect)"
 		]
 #else
 	-- Windows is only going to use direct mode, so don't test twice.