A pastebin for markdown pages.
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
(ns NoteHub.test.storage
|
|
|
|
|
(:use [NoteHub.storage] [clojure.test]))
|
|
|
|
|
|
|
|
|
|
(def date [2012 06 03])
|
|
|
|
|
(def test-title "Some title.")
|
|
|
|
|
(def test-note "This is a test note.")
|
|
|
|
|
|
|
|
|
|
(testing "Storage"
|
|
|
|
|
(testing "of correct note creation"
|
|
|
|
|
(is (= (do
|
|
|
|
|
(set-note date test-title test-note)
|
|
|
|
|
(get-note date test-title))
|
|
|
|
|
test-note)))
|
|
|
|
|
(testing "of the note access"
|
|
|
|
|
(is (not= (get-note date test-title) "any text")))
|
|
|
|
|
(testing "of note existence"
|
|
|
|
|
(is (note-exists? date test-title))
|
|
|
|
|
(is (not (do
|
|
|
|
|
(delete-note date test-title)
|
|
|
|
|
(note-exists? date test-title))))
|
|
|
|
|
(is (not (note-exists? [2013 06 03] test-title)))
|
|
|
|
|
(is (not (note-exists? date "some title")))))
|
