File tree Expand file tree Collapse file tree 2 files changed +3
-1
lines changed Expand file tree Collapse file tree 2 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -6,3 +6,4 @@ exports.thisIsNumber = 12;
66exports . thisIsString = "foobar" ;
77exports . thisIsArray = [ "foo" , "bar" ] ;
88exports . thisIsObject = { foo : "bar" } ;
9+ exports . thisIsInvalidString = "\\\ffff" ;
Original file line number Diff line number Diff line change @@ -23,6 +23,7 @@ foreign import thisIsNumber :: Json
2323foreign import thisIsString :: Json
2424foreign import thisIsArray :: Json
2525foreign import thisIsObject :: Json
26+ foreign import thisIsInvalidString :: String
2627
2728isTest :: Effect Unit
2829isTest = do
@@ -120,7 +121,7 @@ toTest = do
120121
121122parserTest :: Effect Unit
122123parserTest = do
123- assert ((isLeft (jsonParser " \\\f fff " )) <?> " Error in jsonParser" )
124+ assert ((isLeft (jsonParser thisIsInvalidString )) <?> " Error in jsonParser" )
124125 quickCheck' 10 roundtripTest
125126 where
126127 roundtripTest :: Gen Result
You can’t perform that action at this time.
0 commit comments