@gfredericks_ protocol/record code for mocking java obj to check for call

gistfile1.txt

clobal=> (defprotocol IFoo (foo [this]))
IFoo
clobal=> (defrecord MyClass [state] (foo [this] (swap! state assoc :foo :called)))
ClassCastException clojure.lang.PersistentList cannot be cast to clojure.lang.Symbol  clojure.core/ns-resolve (core.clj:3944)

clobal=> (defrecord MyClass [state] IFoo (foo [this] (swap! state assoc :foo :called)))
clobal.MyClass
clobal=> (def ob (MyClass. (atom {})))
#'clobal/ob
clobal=> @(.state ob)
{}
clobal=> (.foo ob)
{:foo :called}
clobal=> @(.state ob)
{:foo :called}