~music-clockwork/resonate/mixes

« back to all changes in this revision

Viewing changes to daemons/test/StringTests.hs

  • Committer: Brian Kassouf
  • Date: 2009-05-04 19:24:30 UTC
  • mfrom: (615.2.28 resonate)
  • Revision ID: brian@brian-laptop-20090504192430-d99ollvz4nrfkz27
pulled in the new revisions from trunk branch

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
module Main where
 
2
 
 
3
import Test.HUnit
 
4
import String (substitute)
 
5
 
 
6
testSubstitute = TestCase $
 
7
  assertEqual "XXX" "Something that's \\\"quoted\\\" here"
 
8
    (substitute "\"" "\\\"" "Something that's \"quoted\" here")
 
9
 
 
10
tests = TestList
 
11
  [ TestLabel "test substitute function" testSubstitute
 
12
  ]
 
13
 
 
14
main = runTestTT tests