Fixed badly named test group in Yesod.Utils

This commit is contained in:
Michael Snoyman 2009-12-11 13:19:09 +02:00
parent 2eb6f2f05b
commit ab65accb44

View File

@ -46,7 +46,7 @@ tryLookup def key = fromMaybe def . lookup key
#if TEST #if TEST
----- Testing ----- Testing
testSuite :: Test testSuite :: Test
testSuite = testGroup "Yesod.Response" testSuite = testGroup "Yesod.Utils"
[ testCase "tryLookup1" caseTryLookup1 [ testCase "tryLookup1" caseTryLookup1
, testCase "tryLookup2" caseTryLookup2 , testCase "tryLookup2" caseTryLookup2
] ]