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.
22 lines
900 B
22 lines
900 B
(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")))))
|
|
|