Skip to content

Commit 8b92c90

Browse files
author
Vilson Fabricio Juliatto
committed
Make the test script exit after the tests being finished
1 parent 39a66c0 commit 8b92c90

File tree

2 files changed

+14
-2
lines changed

2 files changed

+14
-2
lines changed

bower.json

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,9 @@
1212
"url": "git://github.com/purescript-node/purescript-node-http.git"
1313
},
1414
"devDependencies": {
15-
"purescript-console": "master"
15+
"purescript-aff": "main",
16+
"purescript-console": "master",
17+
"purescript-node-process": "master"
1618
},
1719
"dependencies": {
1820
"purescript-arraybuffer-types": "main",

test/Main.purs

Lines changed: 11 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,23 +5,33 @@ import Prelude
55
import Data.Foldable (foldMap)
66
import Data.Maybe (Maybe(..), fromMaybe)
77
import Data.Options (Options, options, (:=))
8+
import Data.Time.Duration (Milliseconds(..))
89
import Data.Tuple (Tuple(..))
910
import Effect (Effect)
11+
import Effect.Aff (delay, launchAff_)
12+
import Effect.Class (liftEffect)
1013
import Effect.Console (log, logShow)
1114
import Foreign.Object (fromFoldable, lookup)
1215
import Node.Encoding (Encoding(..))
1316
import Node.HTTP (Request, Response, listen, createServer, setHeader, requestHeaders, requestMethod, requestURL, responseAsStream, requestAsStream, setStatusCode, onUpgrade)
1417
import Node.HTTP.Client as Client
1518
import Node.HTTP.Secure as HTTPS
1619
import Node.Net.Socket as Socket
20+
import Node.Process (exit)
1721
import Node.Stream (Writable, end, pipe, writeString)
1822
import Partial.Unsafe (unsafeCrashWith)
1923
import Unsafe.Coerce (unsafeCoerce)
2024

2125
foreign import stdout :: forall r. Writable r
2226

2327
main :: Effect Unit
24-
main = do
28+
main = launchAff_ do
29+
liftEffect runTests
30+
delay $ Milliseconds 10000.0
31+
liftEffect $ exit 0
32+
33+
runTests :: Effect Unit
34+
runTests = do
2535
testBasic
2636
testUpgrade
2737
testHttpsServer

0 commit comments

Comments
 (0)