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;
6
6
exports . thisIsString = "foobar" ;
7
7
exports . thisIsArray = [ "foo" , "bar" ] ;
8
8
exports . 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
23
23
foreign import thisIsString :: Json
24
24
foreign import thisIsArray :: Json
25
25
foreign import thisIsObject :: Json
26
+ foreign import thisIsInvalidString :: String
26
27
27
28
isTest :: Effect Unit
28
29
isTest = do
@@ -120,7 +121,7 @@ toTest = do
120
121
121
122
parserTest :: Effect Unit
122
123
parserTest = do
123
- assert ((isLeft (jsonParser " \\\f fff " )) <?> " Error in jsonParser" )
124
+ assert ((isLeft (jsonParser thisIsInvalidString )) <?> " Error in jsonParser" )
124
125
quickCheck' 10 roundtripTest
125
126
where
126
127
roundtripTest :: Gen Result
You can’t perform that action at this time.
0 commit comments