Run bittorrent-client in res/ so it can seed the testfile

1 files changed, 5 insertions, 2 deletions

diff --git a/tests/Main.hs b/tests/Main.hs
index 66283339..32ee3992 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -4,6 +4,7 @@ import Spec
 import System.Exit
 import System.Environment
 import System.Process
+import System.Directory
 import Control.Exception
 import Data.List
 import Data.Maybe
@@ -11,7 +12,7 @@ import Data.Functor
 
 clients :: [(String, String)]
 clients = [
- ("rtorrent","rtorrent -p 51234-51234 res/testfile.torrent") ]
+ ("rtorrent","rtorrent -p 51234-51234 testfile.torrent") ]
 
 main :: IO ()
 main = do
@@ -24,7 +25,9 @@ main = do
         return cmd
   case cmd' of
     Just cmd -> do _ <- system "screen -S bittorrent-testsuite -X quit"
-                   createProcess (shell cmd) >> return ()
+                   dir <- getCurrentDirectory
+                   _ <- createProcess (shell cmd) { cwd = Just (dir ++ "/res") }
+                   return ()
     Nothing -> return ()
 
   let args' = (filter (not . isPrefixOf "--bittorrent-client=") args)