implementing tests

src/NoteHub/storage.clj

@@ -5,14 +5,17 @@
 
 (def note "note")
 
-(defn- build-key [[year month day] key]
-  (print-str year month day key))
+(defn- build-key [[year month day] title]
+  (print-str year month day title))
 
-(defn set-note [date key v]
-  (redis/hset db note (build-key date key) v))
+(defn set-note [date title text]
+  (redis/hset db note (build-key date title) text))
 
-(defn get-note [date key]
-  (redis/hget db note (build-key date key)))
+(defn get-note [date title]
+  (redis/hget db note (build-key date title)))
 
-(defn note-exists? [date key]
-  (redis/hexists db note (build-key date key)))
+(defn note-exists? [date title]
+  (redis/hexists db note (build-key date title)))
+
+(defn delete-note [date title]
+  (redis/hdel db note (build-key date title)))

src/NoteHub/views/pages.clj

@@ -1,6 +1,6 @@
 (ns NoteHub.views.pages
   (:require [NoteHub.views.common :as common])
-  (:require [NoteHub.crossover.lib :as nh])
+  (:require [NoteHub.crossover.lib :as lib])
   (:use
     [NoteHub.storage]
     [clojure.string :rename {replace sreplace} :only [split replace lower-case]]
@@ -98,12 +98,12 @@
            (let [valid-session (flash-get session-key) ; it was posted from a newly generated form
                  valid-draft (not (empty? draft)) ; the note is non-empty
                  valid-hash (= (Short/parseShort session-value) ; the hash code is correct 
-                               (nh/hash #(.codePointAt % 0) (str draft session-key)))]
+                               (lib/hash #(.codePointAt % 0) (str draft session-key)))]
              (do
                ; TODO: delete this if tests are written
                (println "session:" valid-session "draft:" valid-draft "hash:" 
                         (Short/parseShort session-value)
-                        (nh/hash #(.codePointAt % 0) (str draft session-key)))
+                        (lib/hash #(.codePointAt % 0) (str draft session-key)))
                (if (and valid-session valid-draft valid-hash)
                  (do
                    (set-note date title draft)