68 lines
2.3 KiB
Clojure
68 lines
2.3 KiB
Clojure
(ns sparse-array.core-test
|
|
(:require [clojure.test :refer :all]
|
|
[sparse-array.core :refer :all]))
|
|
|
|
(deftest creation-and-testing
|
|
(testing "Creation and testing."
|
|
(is (sparse-array? (make-sparse-array :x :y :z)))))
|
|
|
|
(deftest put-and-get
|
|
(testing "get"
|
|
(let [expected "hello"
|
|
array {:dimensions 2,
|
|
:coord :x,
|
|
:content '(:y)
|
|
3 {:dimensions 1 :coord :y :content :data 4 "hello"}}
|
|
actual (get array 3 4)]
|
|
(is (= actual expected))))
|
|
(testing "put"
|
|
(let [expected "hello"
|
|
array {:dimensions 2,
|
|
:coord :x,
|
|
:content '(:y)}
|
|
actual (((put array expected 3 4) 3) 4)]
|
|
(is (= actual expected))))
|
|
(testing "round trip, one dimension"
|
|
(let
|
|
[expected "hello"
|
|
actual (get (put (make-sparse-array :x) expected 3) 3)]
|
|
(is (= actual expected))))
|
|
(testing "round trip, two dimensions"
|
|
(let
|
|
[expected "hello"
|
|
actual (get (put (make-sparse-array :x :y) expected 3 4) 3 4)]
|
|
(is (= actual expected))))
|
|
(testing "round trip, three dimensions"
|
|
(let
|
|
[expected "hello"
|
|
actual (get (put (make-sparse-array :x :y :z) expected 3 4 5) 3 4 5)]
|
|
(is (= actual expected))))
|
|
(testing "round trip, four dimensions"
|
|
(let
|
|
[expected "hello"
|
|
actual (get (put (make-sparse-array :p :q :r :s) expected 3 4 5 6) 3 4 5 6)]
|
|
(is (= actual expected)))))
|
|
|
|
(deftest merge-test
|
|
(testing "merge, one dimension"
|
|
(let
|
|
[merged (merge-sparse-arrays
|
|
(put (make-sparse-array :x) "hello" 3)
|
|
(put (make-sparse-array :x) "goodbye" 4))]
|
|
(is (= "hello" (get merged 3)))
|
|
(is (= "goodbye" (get merged 4)))))
|
|
(testing "merge, two dimensions"
|
|
(let
|
|
[merged (merge-sparse-arrays
|
|
(put (make-sparse-array :x :y) "hello" 3 4)
|
|
(put (make-sparse-array :x :y) "goodbye" 4 3))]
|
|
(is (= "hello" (get merged 3 4)))
|
|
(is (= "goodbye" (get merged 4 3))))))
|
|
|
|
(deftest dense-to-sparse-tests
|
|
(testing "dense-to-sparse, one dimension"
|
|
(let [dense [nil nil nil "hello" nil "goodbye"]
|
|
sparse (dense-to-sparse dense)]
|
|
(is (= "hello" (get sparse 3)))
|
|
(is (= "goodbye" (get sparse 5))))))
|