diff --git a/test/memobot/test/lists.clj b/test/memobot/test/lists.clj new file mode 100644 index 0000000..8d2f59f --- /dev/null +++ b/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))))) diff --git a/test/memobot/test/strings.clj b/test/memobot/test/strings.clj index 58058eb..da52831 100644 --- a/test/memobot/test/strings.clj +++ b/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