Avi-D-coder/implicit-hie
1
1
Fork 0
mirror of https://github.com/Avi-D-coder/implicit-hie.git synced 2024-11-26 00:04:23 +03:00
Code Issues Projects Releases Wiki Activity

Update tests

Browse Source
This commit is contained in:
Avi Dessauer 2020-11-29 03:33:46 -05:00
parent 6b67252006
commit fdfb16c2bf
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/Spec.hs
View File

@ -94,19 +94,19 @@ spec = do
("foo\n -- need to include this too\n bar\n" :: Text) ~> parseList 1
`shouldParse` ["foo", "bar"]
describe "Should Succeed" $
it "list with a comment" $
it "list2 with a comment" $
("foo -- need to include this too\n bar\n" :: Text) ~> parseList 1
`shouldParse` ["foo", "bar"]
describe "Should Succeed" $
it "list with a comment" $
it "list3 with a comment" $
("foo -- need to include this too\n bar" :: Text) ~> parseList 1
`shouldParse` ["foo", "bar"]
describe "Should Succeed" $
it "list with a comment" $
it "list4 with a comment" $
("foo\n bar\n -- need to include this too" :: Text) ~> parseList 1
`shouldParse` ["foo", "bar"]
describe "Should Succeed" $
it "list with a comment" $
it "list5 with a comment" $
("foo\n bar -- need to include this too" :: Text) ~> parseList 1
`shouldParse` ["foo", "bar"]
describe "Should Succeed" $
@ -121,9 +121,13 @@ spec = do
("other-modules: test\ndefault-language: Haskell2011" :: Text) ~?> field 0 "other-modules" parseList
`leavesUnconsumed` "default-language: Haskell2011"
describe "Should Succeed" $
it "succesfully parses empty other-modules" $
it "succesfully parses empty other-modules1" $
("other-modules: test\ndefault-language: Haskell2011" :: Text) ~?> field 0 "other-modules" parseList
`leavesUnconsumed` "default-language: Haskell2011"
describe "Should Succeed" $
it "succesfully parses empty other-modules2" $
(" other-modules: \n build-depends:\n base >=4.9 && <5" :: Text) ~> field 0 "other-modules" parseList
`shouldParse` []
exeSection :: Text
exeSection =