lots of minor refactorings; landing page extended

2012-06-13 20:24:30 +02:00
parent 2e73f899f5
commit 1ba9dc5121
8 changed files with 112 additions and 56 deletions
@@ -10,7 +10,12 @@
                  (is (= (do
                           (set-note date test-title test-note)
                           (get-note date test-title))
-                         test-note)))
+                         test-note))
+                  (is (= "1" (get-views date test-title)))
+                  (is (= (do
+                           (get-note date test-title)
+                           (get-views date test-title))
+                         "2")))
         (testing "of the note access"
                  (is (not= (get-note date test-title) "any text")))
         (testing "of note existence"