1 files changed, 31 insertions, 0 deletions

diff --git a/testing/hstox/toxcore-sut.hs b/testing/hstox/toxcore-sut.hs
new file mode 100644
index 00000000..73bdb702
--- /dev/null
+++ b/testing/hstox/toxcore-sut.hs
@@ -0,0 +1,31 @@
+module Main (main) where
+
+import           Control.Concurrent  (threadDelay)
+import           System.Environment  (getArgs, withArgs)
+import           System.Process      (createProcess, proc, terminateProcess)
+
+import           Network.Tox.Testing (serve)
+import qualified ToxTestSuite
+
+
+foreign import ccall test_main :: IO ()
+
+
+main :: IO ()
+main = do
+  args <- getArgs
+  case args of
+    ["--sut"] -> test_main
+    self : testArgs -> do
+      -- Start a toxcore SUT (System Under Test) process that will listen on
+      -- port 1234. We call ourselves here, so the branch above is taken.
+      (_, _, _, sut) <- createProcess $ proc self ["--sut"]
+      -- 100ms delay to give the SUT time to set up its socket before we try to
+      -- build connections in the test runner.
+      threadDelay $ 100 * 1000
+      -- ToxTestSuite (the test runner) makes connections to port 1234 to
+      -- communicate with the SUT.
+      withArgs (["--print-cpu-time", "--color"] ++ testArgs) ToxTestSuite.main
+      terminateProcess sut
+    _ ->
+      fail "Usage: toxcore-sut <path-to-toxcore-sut> [test-args...]"