Commit ecd25bfd authored by Gebhart97's avatar Gebhart97
Browse files

Some Test Cases

Some Test Cases, that should hopefully work now.
parent 4ae4322c
......@@ -39,6 +39,12 @@ spaceSpec = describe "whitespace" $ do
it "skips many newlines" $
p `shouldSucceedOn` "\n\n\n"
it "skips many carriage returns" $
p `shouldSucceedOn` "\r\r\r"
it "skips many newlines and carriage returns" $
p `shouldSucceedOn` "\r\n\n\r\n\r"
it "skips newlines interleaved with spaces" $
p `shouldSucceedOn` "\n \n \n"
......@@ -57,6 +63,12 @@ spaceSpec = describe "whitespace" $ do
it "skips many newlines" $
p `shouldSucceedOn` "\n\n\n"
it "skips many carriage returns" $
p `shouldSucceedOn` "\r\r\r"
it "skips many newlines and carriage returns" $
p `shouldSucceedOn` "\r\n\n\r\n\r"
it "skips newlines interleaved with spaces" $
p `shouldSucceedOn` "\n \n \n"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment