Add tests for regexp match to check for word break.

This commit is contained in:
Danny Yoo 2013-01-15 16:05:43 -07:00
parent 2051d42034
commit 7627e4c47e

View File

@ -125,7 +125,12 @@
(string->jsexpr @T{ {x:1, y:2} }) =error> "read-json:"
(string->jsexpr " {x:1, y:2] ") =error> "read-json:"
(string->jsexpr " [\"x\",1, \"y\",2} ") =error> "read-json:"
(string->jsexpr @T{ truelove }) =error> "read-json:"
(string->jsexpr @T{ truebred }) =error> "read-json:"
(string->jsexpr @T{ falsehood }) =error> "read-json:"
(string->jsexpr @T{ falsetto }) =error> "read-json:"
(string->jsexpr @T{ nullity }) =error> "read-json:"
(string->jsexpr @T{ nulliparous }) =error> "read-json:"
))
(test do (pred-tests)