test direct mode first (it breaks more often)
This commit is contained in:
parent
860632b2a3
commit
bc0517fc86
1 changed files with 1 additions and 1 deletions
2
Test.hs
2
Test.hs
|
@ -79,8 +79,8 @@ main = do
|
||||||
directenv <- prepare True
|
directenv <- prepare True
|
||||||
let tests = testGroup "Tests"
|
let tests = testGroup "Tests"
|
||||||
[ localOption (QuickCheckTests 1000) properties
|
[ localOption (QuickCheckTests 1000) properties
|
||||||
, unitTests indirectenv "(indirect)"
|
|
||||||
, unitTests directenv "(direct)"
|
, unitTests directenv "(direct)"
|
||||||
|
, unitTests indirectenv "(indirect)"
|
||||||
]
|
]
|
||||||
#else
|
#else
|
||||||
-- Windows is only going to use direct mode, so don't test twice.
|
-- Windows is only going to use direct mode, so don't test twice.
|
||||||
|
|
Loading…
Add table
Reference in a new issue