Make the test script exit after the tests being finished

Author: Vilson Fabricio Juliatto

bower.json

@@ -12,7 +12,9 @@
     "url": "git://github.com/purescript-node/purescript-node-http.git"
   },
   "devDependencies": {
-    "purescript-console": "master"
+    "purescript-aff": "main",
+    "purescript-console": "master",
+    "purescript-node-process": "master"
   },
   "dependencies": {
     "purescript-arraybuffer-types": "main",

test/Main.purs

@@ -5,23 +5,33 @@ import Prelude
 import Data.Foldable (foldMap)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Options (Options, options, (:=))
+import Data.Time.Duration (Milliseconds(..))
 import Data.Tuple (Tuple(..))
 import Effect (Effect)
+import Effect.Aff (delay, launchAff_)
+import Effect.Class (liftEffect)
 import Effect.Console (log, logShow)
 import Foreign.Object (fromFoldable, lookup)
 import Node.Encoding (Encoding(..))
 import Node.HTTP (Request, Response, listen, createServer, setHeader, requestHeaders, requestMethod, requestURL, responseAsStream, requestAsStream, setStatusCode, onUpgrade)
 import Node.HTTP.Client as Client
 import Node.HTTP.Secure as HTTPS
 import Node.Net.Socket as Socket
+import Node.Process (exit)
 import Node.Stream (Writable, end, pipe, writeString)
 import Partial.Unsafe (unsafeCrashWith)
 import Unsafe.Coerce (unsafeCoerce)
 
 foreign import stdout :: forall r. Writable r
 
 main :: Effect Unit
-main = do
+main = launchAff_ do
+  liftEffect runTests
+  delay $ Milliseconds 10000.0
+  liftEffect $ exit 0
+
+runTests :: Effect Unit
+runTests = do
   testBasic
   testUpgrade
   testHttpsServer