cabalize backend test server

2 files changed, 3 insertions, 3 deletions

diff --git a/backendtest/EditorExamplesTest.hs b/backendtest/EditorExamplesTest.hs
index 2fe861c2..742b3e59 100644
--- a/backendtest/EditorExamplesTest.hs
+++ b/backendtest/EditorExamplesTest.hs
@@ -74,7 +74,7 @@ scene wh = Scene
       in mat4ToM44F $ mm .*. cm .*. pm
 
 getRenderJob = do
-  let path = "../testdata/editor-examples"
+  let path = "./testdata/editor-examples"
   tests <- filter ((".lc" ==) . takeExtension) <$> getDirectoryContents path
   print tests
   ppls <- forM tests $ \name -> do
@@ -86,7 +86,7 @@ getRenderJob = do
         , pipeline = ppl
         }
 
-  img <- unpack . B64.encode <$> BS.readFile "logo256x256.png"
+  img <- unpack . B64.encode <$> BS.readFile "./backendtest/logo256x256.png"
 
   return $ RenderJob
     { meshes      = V.fromList [cubeMesh]
diff --git a/backendtest/server.hs b/backendtest/TestServer.hs
index c2d13555..58e49254 100644
--- a/backendtest/server.hs
+++ b/backendtest/TestServer.hs
@@ -53,7 +53,7 @@ application pending = do
             Nothing -> putStrLn "invalid RenderJobResult"
             Just (RenderJobError e) -> fail $ "render error:\n" ++ e -- TODO: test failed
             Just (RenderJobResult FrameResult{..}) -> do
-              let name = "out/output_ppl" ++ printf "%02d" pIdx ++ "_scn" ++ printf "%02d" sIdx ++ "_" ++ printf "%02d" fIdx ++ ".png"
+              let name = "backend-test-images/ppl" ++ printf "%02d" pIdx ++ "_scn" ++ printf "%02d" sIdx ++ "_" ++ printf "%02d" fIdx ++ ".png"
               createDirectoryIfMissing True (takeDirectory name)
               compareOrSaveImage name =<< toImage frImageWidth frImageHeight . either error id . B64.decode =<< WS.receiveData conn
               putStrLn $ name ++ "\t" ++ unwords (map showTime . V.toList $ frRenderTimes)