Browse files

Merge pull request #10 from serras/test-suites

Small patch for running test-suites.
  • Loading branch information...
2 parents 642449e + ac7500c commit e32ec2c85ffb19101af8b4ad4db61b7af7085d67 @JPMoresmau committed Jul 17, 2011
Showing with 11 additions and 0 deletions.
  1. +11 −0 lib/Scion/Cabal.hs
View
11 lib/Scion/Cabal.hs
@@ -255,6 +255,10 @@ cabalDynFlags component = do
let odir
| Executable {exe_name=exeName'} <- component
= odir0 </> dropExtension exeName'
+#if CABAL_VERSION > 108
+ | TestSuite {test_name=testName'} <- component
+ = odir0 </> dropExtension testName'
+#endif
| otherwise
= odir0
#if CABAL_VERSION < 107
@@ -299,6 +303,13 @@ cabalDynFlags component = do
(if null $ takeExtension exeName'
then exeExtension
else "")]
+#if CABAL_VERSION > 108
+ TestSuite{test_name=test_name'} ->
+ ["-o", odir </> test_name' <.>
+ (if null $ takeExtension test_name'
+ then exeExtension
+ else "")]
+#endif
_ -> []
fromJustD :: [Char] -> Maybe a -> a

0 comments on commit e32ec2c

Please sign in to comment.