mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
29 lines
720 B
Clojure
29 lines
720 B
Clojure
(ns more-speech.mem-spec
|
|
(:require [speclj.core :refer :all]
|
|
[more-speech.mem :refer :all]))
|
|
|
|
(describe "memory operators"
|
|
(before (clear-mem))
|
|
|
|
(it "unknown values are nil"
|
|
(should-be-nil (get-mem :unknown)))
|
|
|
|
(it "gets a value that was set"
|
|
(set-mem :name :value)
|
|
(should= :value (get-mem :name)))
|
|
|
|
(it "sets and gets a nested value"
|
|
(set-mem [:name :sub-name] :value)
|
|
(should= :value (get-mem [:name :sub-name])))
|
|
|
|
(it "updates a value"
|
|
(set-mem :list [])
|
|
(update-mem :list conj 1)
|
|
(should= [1] (get-mem :list)))
|
|
|
|
(it "updates a nested value"
|
|
(set-mem [:name :list] [])
|
|
(update-mem [:name :list] conj 1)
|
|
(should= [1] (get-mem [:name :list])))
|
|
)
|