diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 4eaa8b6..1914e72 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -51,3 +51,6 @@ jobs: - name: Build the project run: npm run build + + - name: Test the project + run: npm run test diff --git a/package.json b/package.json index a7cebb6..879061e 100644 --- a/package.json +++ b/package.json @@ -31,6 +31,7 @@ "build": "run-s build:*", "build:spago": "spago build", "build:pulp": "pulp build -o output-pulp", - "clean": "rm -rf .spago bower_components output output-pulp node_modules .pulp-cache .psci_modules" + "clean": "rm -rf .spago bower_components output output-pulp node_modules .pulp-cache .psci_modules", + "test": "spago -x test.dhall test" } } diff --git a/src/React/Basic/DOM/Server.js b/src/React/Basic/DOM/Server.js index 140c3e9..62b5750 100644 --- a/src/React/Basic/DOM/Server.js +++ b/src/React/Basic/DOM/Server.js @@ -1,3 +1,3 @@ -import ReactDOMServer from "react-dom/server"; +import ReactDOMServer from "react-dom/server.js"; export var renderToString = ReactDOMServer.renderToString; export var renderToStaticMarkup = ReactDOMServer.renderToStaticMarkup; diff --git a/test.dhall b/test.dhall new file mode 100644 index 0000000..d7128cb --- /dev/null +++ b/test.dhall @@ -0,0 +1,6 @@ +let conf = ./spago.dhall + +in conf // { + sources = conf.sources # [ "test/**/*.purs" ], + dependencies = conf.dependencies # [ "effect", "spec", "aff" ] +} diff --git a/test/Main.purs b/test/Main.purs new file mode 100644 index 0000000..90799fe --- /dev/null +++ b/test/Main.purs @@ -0,0 +1,18 @@ +module Test.Main where + +import Prelude + +import Effect (Effect) +import Effect.Aff (launchAff_) +import React.Basic.DOM.Server (renderToString) +import Test.Spec (describe, it) +import Test.Spec.Assertions (shouldEqual) +import Test.Spec.Reporter.Console (consoleReporter) +import Test.Spec.Runner (runSpec) + +main :: Effect Unit +main = launchAff_ $ runSpec [consoleReporter] do + describe "react-basic-dom-spec" do + describe "react-basic-dom-server" do + it "imports properly" do + renderToString mempty `shouldEqual` ""