57 lines
2.1 KiB
Clojure
57 lines
2.1 KiB
Clojure
(ns book.test-PersistentSortedList
|
|
(:require [midje.sweet :refer :all]
|
|
[book.util :refer [sorted-list sorted-list-by]]))
|
|
|
|
|
|
|
|
(facts "test-match-buy-order-in-sell-book"
|
|
(fact "constructing"
|
|
(map nil? (sorted-list)) => empty?)
|
|
;; The following are tests that fails...
|
|
;(vec (sorted-list)) => empty?)
|
|
(fact "Test ordering."
|
|
(sorted-list 1 2 3) => (sorted-list 3 2 1)
|
|
(sorted-list 1 2 2 3) => (sorted-list 3 2 1 2))
|
|
(fact "count"
|
|
(count (sorted-list)) => 0
|
|
(count (sorted-list 1 2 3)) => 3
|
|
(count (sorted-list 1 2 3 2)) => 4)
|
|
(fact "rest"
|
|
(rest (sorted-list 1 2 3)) => (sorted-list 2 3)
|
|
(rest (sorted-list 1 2 3 2)) => (sorted-list 2 2 3)
|
|
(rest (sorted-list 1)) => (sorted-list)
|
|
(rest (sorted-list)) => empty?
|
|
(str (type (rest (sorted-list)))) => "class book.PersistentSortedList")
|
|
(fact "next"
|
|
(next (sorted-list 1 2 3)) => (sorted-list 2 3)
|
|
(next (sorted-list 1 2 3 2)) => (sorted-list 2 2 3)
|
|
(next (sorted-list 1)) => nil
|
|
(next (sorted-list)) => nil)
|
|
(fact "drop"
|
|
(drop 2 (sorted-list 1 2 3)) => (sorted-list 3)
|
|
(drop 3 (sorted-list 1 2 3)) => (list))
|
|
(fact "empty"
|
|
(empty (sorted-list 2 3 4)) => (sorted-list)
|
|
(into (empty (sorted-list-by #(- %2 %1) 2 3 4)) [20 30]) => (sorted-list-by #(- %2 %1) 20 30))
|
|
(fact "reduce"
|
|
(reduce + (sorted-list 1 2 3)) => 6
|
|
(reduce + 10 (sorted-list 1 2 3)) => 16)
|
|
(fact "peek/pop"
|
|
(peek (sorted-list 1 2 3)) => 1
|
|
(peek (sorted-list 1 1 1 2 3)) => 1
|
|
(peek (sorted-list)) => nil
|
|
(pop (sorted-list 1 2 3)) => (sorted-list 2 3)
|
|
(pop (sorted-list 1 1 2 3)) => (sorted-list 1 2 3)
|
|
(pop (sorted-list 1 1 1 2 3)) => (sorted-list 1 1 2 3)
|
|
(pop (sorted-list)) => (throws IllegalStateException))
|
|
|
|
(fact "count after change"
|
|
(let [l (sorted-list 1 2 3)]
|
|
(count (conj l 4)) => 4
|
|
(count (conj l 3)) => 4
|
|
(count (cons 3 l)) => 4
|
|
(count (rest l)) => 2
|
|
(count (pop l)) => 2))
|
|
(fact "sorted-list-by"
|
|
(sorted-list-by > 1 2 3) => [3 2 1]))
|