about summary refs log tree commit diff
path: root/users/aspen/xanthous/test/Xanthous/Util/InflectionSpec.hs
blob: fad841043152da24c7570671037b1dc7b2b2c56f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
module Xanthous.Util.InflectionSpec (main, test) where

import Test.Prelude
import Xanthous.Util.Inflection

main :: IO ()
main = defaultMain test

test :: TestTree
test = testGroup "Xanthous.Util.Inflection"
  [ testGroup "toSentence"
    [ testCase "empty"  $ toSentence [] @?= ""
    , testCase "single" $ toSentence ["x"] @?= "x"
    , testCase "two"    $ toSentence ["x", "y"] @?= "x and y"
    , testCase "three"  $ toSentence ["x", "y", "z"] @?= "x, y, and z"
    , testCase "four"   $ toSentence ["x", "y", "z", "w"] @?= "x, y, z, and w"
    ]
  ]