exercism/purescript/hello-world/test/Main.purs

19 lines
554 B
Plaintext
Raw Normal View History

2017-08-24 17:10:01 +00:00
module Test.Main where
import Prelude
import Test.Unit (suite, test)
import Test.Unit.Main (runTest)
import Test.Unit.Assert as Assert
import Data.Maybe (Maybe(Just, Nothing))
import HelloWorld (helloWorld)
main = runTest do
suite "HelloWorld.helloWorld" do
test "Hello with no name" do
Assert.equal "Hello, World!" (helloWorld Nothing)
test "Hello to a sample name" do
Assert.equal "Hello, Alice!" (helloWorld (Just "Alice"))
test "Hello to another sample name" do
Assert.equal "Hello, Bob!" (helloWorld (Just "Bob"))