Add regression test for issue #146

testing/regression-tests/comments/good01.in

@@ -0,0 +1 @@
+foo // bar

testing/regression-tests/comments/good01.out

@@ -0,0 +1,11 @@
+good01.in
+
+Parse Successful!
+
+[Abstract Syntax]
+
+Foo
+
+[Linearized tree]
+
+foo

testing/regression-tests/comments/good02.in

@@ -0,0 +1 @@
+foo " bar

testing/regression-tests/comments/good02.out

@@ -0,0 +1,11 @@
+good01.in
+
+Parse Successful!
+
+[Abstract Syntax]
+
+Foo
+
+[Linearized tree]
+
+foo

testing/regression-tests/comments/good03.in

@@ -0,0 +1 @@
+foo ' bar

testing/regression-tests/comments/good03.out

@@ -0,0 +1,11 @@
+good01.in
+
+Parse Successful!
+
+[Abstract Syntax]
+
+Foo
+
+[Linearized tree]
+
+foo

testing/regression-tests/comments/test.cf

@@ -0,0 +1,7 @@
+-- This grammar tests different comment tokens
+
+Foo. F ::= "foo" ;
+
+comment "//" ;
+comment "\"" ;
+comment "'" ;

testing/src/ParameterizedTests.hs

@@ -90,7 +90,8 @@ testCases :: TestParameters -> [Test]
 testCases params = do
     map makeTestCase
         [ "regression-tests/#100_coercion_lists"
-        , "regression-tests/#134_category_named_I" ]
+        , "regression-tests/#134_category_named_I"
+        , "regression-tests/comments" ]
   where
     mkTitle dir = encodeString (filename dir)
     makeTestCase dir =

testing/src/TestUtils.hs

@@ -22,7 +22,7 @@ import qualified Data.Text as T
 
 -- system-filepath
 import Filesystem.Path (filename, stripPrefix)
-import Filesystem.Path.CurrentOS (encodeString, toText, encode)
+import Filesystem.Path.CurrentOS (encodeString, toText)
 
 -- shelly
 import Shelly
@@ -105,4 +105,4 @@ findFile n = do
         Nothing -> assertFailure "File not found" >> undefined
 
 matchFilePath :: String -> FilePath -> Bool
-matchFilePath regex name = encode name =~ regex
+matchFilePath regex name = encodeString name =~ regex