Skip to content

Commit

Permalink
add test for lindex
Browse files Browse the repository at this point in the history
  • Loading branch information
Artem Yankov committed Sep 28, 2012
1 parent 3178400 commit e7950cb
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 1 deletion.
11 changes: 11 additions & 0 deletions test/memobot/test/lists.clj
@@ -0,0 +1,11 @@
(ns memobot.test.lists
(:use [memobot lists]
[clojure.test]
[clojure.data.finger-tree]))

(deftest lists-test
(testing "lindex"
(let [l (counted-double-list 1 2 3)]
(is (= (lindex-cmd l 1) 2))
(is (= (lindex-cmd l 2) 3))
(is (= (lindex-cmd l 4) 0)))))
2 changes: 1 addition & 1 deletion test/memobot/test/strings.clj
@@ -1,5 +1,5 @@
(ns memobot.test.strings
(:use [memobot core strings redis db])
(:use [memobot strings])
(:use [clojure.test]))

(deftest strings-test
Expand Down

0 comments on commit e7950cb

Please sign in to comment.