23 lines
942 B
Clojure
23 lines
942 B
Clojure
(ns emptyhead.test.idea.protocol
|
|
(:require [cljs.test :as t :include-macros true]
|
|
[emptyhead.idea.crud :as crud]
|
|
[emptyhead.idea.protocol :as prtc]
|
|
[emptyhead.test.utils :refer [expect-error]]
|
|
[emptyhead.test.fixtures :as fx]))
|
|
|
|
(t/use-fixtures :once fx/temporary-state)
|
|
(t/use-fixtures :each fx/pre-reset)
|
|
|
|
(t/deftest protocol
|
|
(t/testing "Value/reference semantics"
|
|
(let [idea (crud/have-idea!)]
|
|
;; Repeatedly going between value and reference shouldn't mangle idea
|
|
(t/is (= idea (-> idea prtc/value prtc/reference)))
|
|
(t/is (= (prtc/value idea) (-> idea prtc/reference prtc/value)))
|
|
|
|
;; Attempting to get a reference to a copy should be an error
|
|
(expect-error :stale-reference #(prtc/reference (prtc/copy idea)))
|
|
|
|
;; Attempting to get a reference to an invalid idea should be an error
|
|
(expect-error :invalid-reference #(prtc/reference {})))))
|