inflections-0.2.0.1: test/Text/Inflections/UnderscoreTest.hs

module Text.Inflections.UnderscoreTest where

import Test.HUnit hiding (Test)

import Test.Framework.Providers.HUnit (testCase)

import Test.Framework (Test, testGroup)

import Text.Inflections (underscore)
import Text.Inflections.Parse.Types (Word(..))

{-# ANN module "HLint: ignore Use camelCase" #-}

tests :: [Test]
tests = [testGroup "underscore"
          [ testCase "testThis -> test_this" test_underscore
          ]
        ]

test_underscore :: Assertion
test_underscore = "test_this" @?= underscore [Word "test", Word "this"]