Source

haskellblog / testsuite / Tests / Blog / DBUtils.hs

Diff from to

File testsuite/Tests/Blog/DBUtils.hs

   quickQuery cn "INSERT INTO slugs (title, slug) VALUES (?, ?);" [toSql title, toSql slug]
 
 slugFromTitle1 =  "this-is-a-title" ~=? (slugFromTitle "This is a % $ /title ^£$")
+slugFromTitle2 =  "doesnt-work" ~=? (slugFromTitle "Doesn't work")
+
 makeSlugGeneric1 =
     withDB (\cn ->
             do
 
 tests = test [
          slugFromTitle1,
+         slugFromTitle2,
          TestCase makeSlugGeneric1
         ]