Add debug; add a test

.gitignore

@@ -6,3 +6,4 @@
 /node_modules/
 /output/
 package-lock.json
+test/actual_output.txt

CHANGELOG.md

@@ -9,6 +9,8 @@ Breaking changes:
 
 New features:
 
+- Added `debug` (#36)
+
 Bugfixes:
 
 Other improvements:

package.json

@@ -2,7 +2,8 @@
   "private": true,
   "scripts": {
     "clean": "rimraf output && rimraf .pulp-cache",
-    "build": "eslint src && pulp build -- --censor-lib --strict"
+    "build": "eslint src && pulp build -- --censor-lib --strict",
+    "test": "npm run build && ./scripts/test"
   },
   "devDependencies": {
     "eslint": "^7.15.0",

scripts/test

@@ -0,0 +1,5 @@
+#!/bin/bash -e
+
+pulp build -I test
+node --input-type=module -e 'import { main } from "./output/Test.Main/index.js"; main();' > test/actual_output.txt 2>&1
+diff -u test/expected_output.txt test/actual_output.txt

src/Effect/Class/Console.purs

@@ -30,6 +30,12 @@ info = liftEffect <<< EffConsole.info
 infoShow :: forall m a. MonadEffect m => Show a => a -> m Unit
 infoShow = liftEffect <<< EffConsole.infoShow
 
+debug :: forall m. MonadEffect m => String -> m Unit
+debug = liftEffect <<< EffConsole.debug
+
+debugShow :: forall m a. MonadEffect m => Show a => a -> m Unit
+debugShow = liftEffect <<< EffConsole.debugShow
+
 time :: forall m. MonadEffect m => String -> m Unit
 time = liftEffect <<< EffConsole.time
 

src/Effect/Console.js

@@ -22,6 +22,12 @@ export const info = function (s) {
   };
 };
 
+export const debug = function (s) {
+  return function () {
+    console.debug(s);
+  };
+};
+
 export const time = function (s) {
   return function () {
     console.time(s);

src/Effect/Console.purs

@@ -45,6 +45,16 @@ foreign import info
 infoShow :: forall a. Show a => a -> Effect Unit
 infoShow a = info (show a)
 
+-- | Write an debug message to the console.
+foreign import debug
+  :: String
+  -> Effect Unit
+
+-- | Write an debug value to the console, using its `Show` instance to produce a
+-- | `String`.
+debugShow :: forall a. Show a => a -> Effect Unit
+debugShow a = debug (show a)
+
 -- | Start a named timer.
 foreign import time :: String -> Effect Unit
 

test/Main.purs

@@ -0,0 +1,14 @@
+module Test.Main where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Class.Console as Console
+
+main :: Effect Unit
+main = do
+  Console.log "log"
+  Console.warn "warn"
+  Console.error "error"
+  Console.info "info"
+  Console.debug "debug"

test/expected_output.txt

@@ -0,0 +1,5 @@
+log
+warn
+error
+info
+debug