UtilityTests.hs

import Data.Bits
import Data.Char
import Data.List
import Test.QuickCheck
import Text.Printf

import Baskerville.Utilities.Bits
import Baskerville.Utilities.Chat

-- From some tutorial somewhere.
mapper :: PrintfArg t => (t, IO b) -> IO b
mapper (d, t) = printf "%-30s: " d >> t
main = mapM_ mapper tests

-- Baskerville.Utilities.Bits
unpackNibblesMod2 x = length (unpackNibbles x) `mod` 2 == 0
packUnpackNibbles x = packNibbles (unpackNibbles x) == x

-- Baskerville.Utilities.Chat
hashStringIndexRange x = let i = hashStringIndex x in i >= 0 && i < 15
betaChatNameHead x = head (betaChatName x) == '§'
betaChatNameSuffix x = isSuffixOf "§f" (betaChatName x)
consoleChatNamePrefix x = isPrefixOf "\x1b[" (consoleChatName x)
consoleChatNameSuffix x = isSuffixOf "\x1b[0m" (consoleChatName x)

tests = [("unpackNibbles/mod2", quickCheck unpackNibblesMod2)
        ,("packNibbles.unpackNibbles/id", quickCheck packUnpackNibbles)
        ,("hashStringIndex/range", quickCheck hashStringIndexRange)
        ,("betaChatName/head", quickCheck betaChatNameHead)
        ,("betaChatName/suffix", quickCheck betaChatNameSuffix)
        ,("consoleChatName/prefix", quickCheck consoleChatNamePrefix)
        ,("consoleChatName/suffix", quickCheck consoleChatNameSuffix)]