LauncherSpec: No need for external scripts

Changed this for the nix build. Alternatively, we could have provided coreutils and bash so that the scripts can run. But I think it's neater without external shell scripts.
cardano-foundation · Oct 22, 2019 · b346c52 · b346c52
1 parent b87ad16
commit b346c52
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 16 deletions.
diff --git a/lib/launcher/test/data/forever.sh b/lib/launcher/test/data/forever.sh
diff --git a/lib/launcher/test/data/once.sh b/lib/launcher/test/data/once.sh
diff --git a/lib/launcher/test/unit/Cardano/LauncherSpec.hs b/lib/launcher/test/unit/Cardano/LauncherSpec.hs
@@ -40,35 +40,35 @@ spec = do
 
     it "1st process exits with 0, others are cancelled" $ do
         let commands =
-              [ Command "./test/data/once.sh" ["0"] (pure ()) Inherit
-              , Command "./test/data/forever.sh" [] (pure ()) Inherit
+              [ mockCommand 0 (pure ())
+              , foreverCommand
               ]
         (ProcessHasExited name code) <- launch nullTracer commands
         name `shouldBe` cmdName (commands !! 0)
         code `shouldBe` ExitSuccess
 
     it "2nd process exits with 0, others are cancelled" $ do
         let commands =
-              [ Command "./test/data/forever.sh" [] (pure ()) Inherit
-              , Command "./test/data/once.sh" ["0"] (pure ()) Inherit
+              [ foreverCommand
+              , mockCommand 0 (pure ())
               ]
         (ProcessHasExited name code) <- launch nullTracer commands
         name `shouldBe` cmdName (commands !! 1)
         code `shouldBe` ExitSuccess
 
     it "1st process exits with 14, others are cancelled" $ do
         let commands =
-              [ Command "./test/data/once.sh" ["14"] (pure ()) Inherit
-              , Command "./test/data/forever.sh" [] (pure ()) Inherit
+              [ mockCommand 14 (pure ())
+              , foreverCommand
               ]
         (ProcessHasExited name code) <- launch nullTracer commands
         name `shouldBe` cmdName (commands !! 0)
         code `shouldBe` (ExitFailure 14)
 
     it "2nd process exits with 14, others are cancelled" $ do
         let commands =
-              [ Command "./test/data/forever.sh" [] (pure ()) Inherit
-              , Command "./test/data/once.sh" ["14"] (pure ()) Inherit
+              [ foreverCommand
+              , mockCommand 14 (pure ())
               ]
         (ProcessHasExited name code) <- launch nullTracer commands
         name `shouldBe` cmdName (commands !! 1)
@@ -78,7 +78,7 @@ spec = do
         mvar <- newEmptyMVar
         let before = putMVar mvar "executed"
         let commands =
-                [ Command "./test/data/once.sh" ["0"] before Inherit
+                [ mockCommand 0 before
                 ]
         (ProcessHasExited _ code) <- launch nullTracer commands
         code `shouldBe` ExitSuccess
@@ -90,3 +90,12 @@ spec = do
                 ]
         ProcessDidNotStart name _exc <- launch nullTracer commands
         name `shouldBe` "foobar"
+
+-- | A command that will run for a short time then exit with the given status.
+mockCommand :: Int -> IO () -> Command
+mockCommand exitStatus before =
+    Command "sh" ["-c", "sleep 1; exit " ++ show exitStatus] before Inherit
+
+-- | A command that will run for longer than the other commands.
+foreverCommand :: Command
+foreverCommand = Command "sleep" ["30"] (pure ()) Inherit