isWhitespaceTest = TestCase (do
    assertEqual "Space should be true" True $ isWhitespace ' '
    assertEqual "Tab should be true" True $ isWhitespace '\t'
    assertEqual "Newline should be true" True $ isWhitespace '\n'
    assertEqual "Carriage should be true" True $ isWhitespace '\r'
    assertEqual "Non-whitespace char should be false" False $ isWhitespace 'A'
    )
isWhitespaceTest = TestCase (do
    assertEqual "Space should be true" True $ isWhitespace ' '
    assertEqual "Tab should be true" True $ isWhitespace '\t'
    assertEqual "Newline should be true" True $ isWhitespace '\n'
    assertEqual "Carriage should be true" True $ isWhitespace '\r'
    assertEqual "Non-whitespace char should be false" False $ isWhitespace 'A'
    )
isWhitespaceTest = TestCase (do
    assertEqual "Space should be true" True $ isWhitespace ' '
    assertEqual "Tab should be true" True $ isWhitespace '\t'
    assertEqual "Newline should be true" True $ isWhitespace '\n'
    assertEqual "Carriage should be true" True $ isWhitespace '\r'
    assertEqual "Non-whitespace char should be false" False $ isWhitespace 'A'
    )