a lot of comments added; minor refactoring

test/NoteHub/test/storage.clj

@@ -11,10 +11,10 @@
                            (set-note date test-title test-note)
                            (get-note date test-title))
                          test-note))
-                  (is (= "1" (get-views date test-title)))
+                  (is (= "1" (get-note-views date test-title)))
                   (is (= (do
                            (get-note date test-title)
-                           (get-views date test-title))
+                           (get-note-views date test-title))
                          "2")))
          (testing "of the note access"
                   (is (not= (get-note date test-title) "any text")))

test/NoteHub/test/views/pages.clj

@@ -1,6 +1,7 @@
 (ns NoteHub.test.views.pages
   (:use [NoteHub.views.pages]
         [noir.util.test]
+        [NoteHub.views.common :only [url]]
         [NoteHub.storage]
         [clojure.test]))
 
@@ -15,9 +16,6 @@
 
 (use-fixtures :each create-testnote-fixture)
 
-(defn url [& args]
-  (apply str (interpose "/" (cons "" args))))
-
 (is (= (url 2010 05 06 "test-title" "export") "/2010/5/6/test-title/export"))
 
 (deftest testing-fixture