19 lines
554 B
Plaintext
19 lines
554 B
Plaintext
|
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"))
|