1module Main where
2
3import Prelude
4import Effect
5import Effect.Console (log)
6import Test.Assert
7
8f 1 = 1
9f _ = 0
10
11g 'a' = 'a'
12g _ = 'b'
13
14main = do
15  assert $ f 1 == 1
16  assert $ f 0 == 0
17  assert $ g 'a' == 'a'
18  assert $ g 'b' == 'b'
19  log "Done"
20