Test command (#98)

Fixes #61.

Author: decioferreira

bin/index.js

@@ -176,27 +176,30 @@ server.post("withCreateProcess", (request) => {
   tmp.file((err, path, fd) => {
     if (err) throw err;
 
-      nextCounter += 1;
+    nextCounter += 1;
 
     fs.createReadStream(path)
       .on("data", (chunk) => {
-        processes[nextCounter].stdin.end(chunk);
+        processes[nextCounter].stdin.write(chunk);
+      })
+      .on("close", () => {
+        processes[nextCounter].stdin.end();
       });
 
-      processes[nextCounter] = child_process.spawn(
-        createProcess.cmdspec.cmd,
-        createProcess.cmdspec.args,
-        {
-          stdio: [
-            createProcess.stdin,
-            createProcess.stdout,
-            createProcess.stderr,
-          ],
-        }
-      );
-
-      request.respond(200, null, JSON.stringify({ stdinHandle: fd, ph: nextCounter }));
-    });
+    processes[nextCounter] = child_process.spawn(
+      createProcess.cmdspec.cmd,
+      createProcess.cmdspec.args,
+      {
+        stdio: [
+          createProcess.stdin,
+          createProcess.stdout,
+          createProcess.stderr,
+        ],
+      }
+    );
+
+    request.respond(200, null, JSON.stringify({ stdinHandle: fd, ph: nextCounter }));
+  });
 });
 
 server.post("hClose", (request) => {
@@ -428,6 +431,15 @@ server.post("putMVar", (request) => {
   }
 });
 
+// NODE.JS SPECIFIC
+server.post("nodeGetDirname", (request) => {
+  request.respond(200, null, __dirname);
+});
+
+server.post("nodeMathRandom", (request) => {
+  request.respond(200, null, Math.random());
+});
+
 server.setDefaultHandler((request) => {
   const url = new URL(request.url);
   const client = url.protocol == "https:" ? https : http;

elm.json

@@ -12,6 +12,7 @@
             "elm/core": "1.0.5",
             "elm/http": "2.0.0",
             "elm/json": "1.1.3",
+            "elm/regex": "1.0.0",
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",
             "elm-community/array-extra": "2.6.0",
@@ -33,7 +34,6 @@
             "andre-dietrich/parser-combinators": "4.1.0",
             "elm/file": "1.0.5",
             "elm/parser": "1.1.0",
-            "elm/regex": "1.0.0",
             "fredcy/elm-parseint": "2.0.1",
             "miniBill/elm-unicode": "1.1.1",
             "pilatch/flip": "1.0.0",

libraries/test/README.md

@@ -0,0 +1,3 @@
+# node-test-runner
+
+Copied from [v0.19.1-revision15](https://github.com/rtfeldman/node-test-runner/tree/0.19.1-revision15).

libraries/test/src/Console/Text.elm

@@ -0,0 +1,217 @@
+module Console.Text exposing
+    ( Color
+    , ColorModifier
+    , Style
+    , Text
+    , UseColor(..)
+    , concat
+    , dark
+    , green
+    , plain
+    , red
+    , render
+    , underline
+    , yellow
+    )
+
+import Test.Runner.Node.Vendor.Console as Console
+
+
+type Text
+    = Text { background : Color, foreground : Color, style : Style, modifiers : List ColorModifier } String
+    | Texts (List Text)
+
+
+type UseColor
+    = UseColor
+    | Monochrome
+
+
+type Color
+    = Default
+    | Red
+    | Green
+    | Yellow
+    | Black
+    | Blue
+    | Magenta
+    | Cyan
+    | White
+
+
+type ColorModifier
+    = Inverted
+    | Dark
+
+
+type Style
+    = Normal
+    | Bold
+    | Underline
+
+
+render : UseColor -> Text -> String
+render useColor txt =
+    case txt of
+        Text attrs str ->
+            case useColor of
+                UseColor ->
+                    str
+                        |> colorizeBackground attrs.background
+                        |> colorizeForeground attrs.foreground
+                        |> applyModifiers attrs.modifiers
+                        |> applyStyle attrs.style
+
+                Monochrome ->
+                    str
+
+        Texts texts ->
+            List.map (render useColor) texts
+                |> String.join ""
+
+
+concat : List Text -> Text
+concat =
+    Texts
+
+
+plain : String -> Text
+plain =
+    Text { foreground = Default, background = Default, style = Normal, modifiers = [] }
+
+
+
+-- FOREGROUND COLORS --
+
+
+red : String -> Text
+red =
+    Text { foreground = Red, background = Default, style = Normal, modifiers = [] }
+
+
+green : String -> Text
+green =
+    Text { foreground = Green, background = Default, style = Normal, modifiers = [] }
+
+
+yellow : String -> Text
+yellow =
+    Text { foreground = Yellow, background = Default, style = Normal, modifiers = [] }
+
+
+dark : Text -> Text
+dark txt =
+    case txt of
+        Text styles str ->
+            Text { styles | modifiers = Dark :: styles.modifiers } str
+
+        Texts texts ->
+            Texts (List.map dark texts)
+
+
+
+-- STYLES --
+
+
+underline : Text -> Text
+underline txt =
+    case txt of
+        Text styles str ->
+            Text { styles | style = Underline } str
+
+        Texts texts ->
+            Texts (List.map dark texts)
+
+
+
+-- INTERNAL HELPERS --
+
+
+colorizeForeground : Color -> String -> String
+colorizeForeground color str =
+    case color of
+        Default ->
+            str
+
+        Red ->
+            Console.red str
+
+        Green ->
+            Console.green str
+
+        Yellow ->
+            Console.yellow str
+
+        Black ->
+            Console.black str
+
+        Blue ->
+            Console.blue str
+
+        Magenta ->
+            Console.magenta str
+
+        Cyan ->
+            Console.cyan str
+
+        White ->
+            Console.white str
+
+
+colorizeBackground : Color -> String -> String
+colorizeBackground color str =
+    case color of
+        Default ->
+            str
+
+        Red ->
+            Console.bgRed str
+
+        Green ->
+            Console.bgGreen str
+
+        Yellow ->
+            Console.bgYellow str
+
+        Black ->
+            Console.bgBlack str
+
+        Blue ->
+            Console.bgBlue str
+
+        Magenta ->
+            Console.bgMagenta str
+
+        Cyan ->
+            Console.bgCyan str
+
+        White ->
+            Console.bgWhite str
+
+
+applyStyle : Style -> String -> String
+applyStyle style str =
+    case style of
+        Normal ->
+            str
+
+        Bold ->
+            Console.bold str
+
+        Underline ->
+            Console.underline str
+
+
+applyModifiers : List ColorModifier -> String -> String
+applyModifiers modifiers str =
+    List.foldl applyModifiersHelp str modifiers
+
+
+applyModifiersHelp : ColorModifier -> String -> String
+applyModifiersHelp modifier str =
+    case modifier of
+        Inverted ->
+            Console.colorsInverted str
+
+        Dark ->
+            Console.dark str