diff --git a/resources/public/content/stylesheet.css b/resources/public/content/stylesheet.css
index 81a661c..c3483b9 100644
--- a/resources/public/content/stylesheet.css
+++ b/resources/public/content/stylesheet.css
@@ -507,3 +507,19 @@ th {
     display: none;
   }
 }
+
+.test-result {
+    color: #ffffff;
+}
+
+.test-result.ok {
+    background-color: #2aa876
+}
+
+.test-result.failure {
+    background-color: #e8554e;
+}
+
+.test-result.error {
+    background-color: #e8554e;
+}
diff --git a/src/smeagol/test.clj b/src/smeagol/test.clj
index 0a288d2..68b46fe 100644
--- a/src/smeagol/test.clj
+++ b/src/smeagol/test.clj
@@ -53,6 +53,6 @@
 (defn process [^String text ^Integer index]
   (let [{:keys [error] :as params} (parse text)]
     (if error
-      (str "<pre class=\"error\">" (pr-str params) "</pre><pre>" text "</pre>")
+      (str "<pre class=\"test-result error\">" (pr-str params) "</pre><pre>" text "</pre>")
       (let [{:keys [result] :as test-result} (do-test params)]
-        (str "<pre class=\"" (name result) "\">" (pr-str test-result) "</pre><pre>" text "</pre>")))))
+        (str "<pre class=\"test-result " (name result) "\">" (pr-str test-result) "</pre><pre>" text "</pre>")))))