Some Test Cases

Some Test Cases, that should hopefully work now.

tests/Copar/Parser/LexerSpec.hs

@@ -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"