add name to tests

Handler/CreateChallenge.hs

@@ -96,6 +96,7 @@ checkTestDir chan challengeId commit testDir = do
       checksum <- liftIO $ gatherSHA1 testDir
       testId <- runDB $ insert $ Test {
         testChallenge=challengeId,
+        testName=T.pack testDir,
         testChecksum=(SHA1 checksum),
         testCommit=commit,
         testActive=True }

config/models

@@ -27,8 +27,9 @@ Challenge
     stamp UTCTime default=now()
 Test
     challenge ChallengeId
+    name Text
     checksum SHA1
     commit SHA1
     active Bool default=True
-    UniqueChallengeChecksum challenge checksum
+    UniqueChallengeChecksum challenge name checksum
 -- By default this file is used in Model.hs (which is imported by Foundation.hs)