4
import String (substitute)
6
testSubstitute = TestCase $
7
assertEqual "XXX" "Something that's \\\"quoted\\\" here"
8
(substitute "\"" "\\\"" "Something that's \"quoted\" here")
11
[ TestLabel "test substitute function" testSubstitute
14
main = runTestTT tests