From 9a5104cbb4c8012779ab23a774aedf66cc093e88 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Mon, 28 Sep 2015 18:10:59 +0200
Subject: [PATCH] add name to tests

---
 Handler/CreateChallenge.hs | 1 +
 config/models              | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Handler/CreateChallenge.hs b/Handler/CreateChallenge.hs
index 4949f0b..c06bf09 100644
--- a/Handler/CreateChallenge.hs
+++ b/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 }
diff --git a/config/models b/config/models
index d6a4947..af407c2 100644
--- a/config/models
+++ b/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)