syntax="proto2";packageclojure_protobuf_poc.core.person;optionjava_outer_classname="PersonProto";messageName {optionalstringname=1;optionalstringsurname=2;}messagePerson {optionalint32id=1;optionalNamename=2;optionalstringemail=3;repeatedstringlikes=4;}

(nsclojure-protobuf-poc.core-test  (:require [clojure.test:refer [testingdeftest is]]            [protobuf.core:as protobuf])  (:import [clojure_protobuf_poc.core.person PersonProto$Name PersonProto$Person]           [protobuf.impl.flatland.core FlatlandProtoBuf]))(defnbytes->Person [person-bytes]  (protobuf/bytes-> (protobuf/create PersonProto$Person) person-bytes))(defnmutate->round-trip [pb f]  (let [mutated (f pb)]    (is (= FlatlandProtoBuf (type mutated)))    (-> mutated         protobuf/->bytes         bytes->Person)))(deftestmutation  (let [alice-name (protobuf/create PersonProto$Name {:name"Alice":surname"Cohen"})        alice (protobuf/create PersonProto$Person {:id108:name alice-name:email"alice.cohen@proto.com"})]    (println alice)    (testing"no mutation"      (let [alice-tag (mutate->round-trip alice identity)]        (is (= alice-tag alice))))    (testing"dissoc"      (let [no-id (mutate->round-trip alice #(dissoc %:id))]        (is (=nil (:id no-id)))))    (testing"assoc-in"      (let [new-surname (mutate->round-trip alice #(assoc-in % [:name:surname]"Levi"))]        (is (="Levi" (get-in new-surname [:name:surname])))))    (testing"update-in"      (let [no-surname (mutate->round-trip alice #(update-in % [:name] dissoc:surname))]        (is (=nil (get-in no-surname [:name:surname]))))); fails-> we get "Cohen"    (testing"assoc"      (let [new-email1 (mutate->round-trip alice #(assoc %:email"new-email"))]        (is (="new-email" (:email new-email1)))))    (testing"merge"; crashes cause after the merge we get  java.lang.IllegalArgumentException: No implementation of; method: :->bytes of protocol: #'protobuf.core/ProtoBufAPI; found for class: protobuf.PersistentProtocolBufferMap      (let [new-email2 (mutate->round-trip alice #(merge % {:email"new-email"}))]        (is (="new-email" (:email new-email2)))))))

FAIL in (mutation) (core_test.clj:31)update-inexpected: nil  actual: "Cohen"    diff: + "Cohen"lein test :only clojure-protobuf-poc.core-test/mutationFAIL in (mutation) (core_test.clj:12)mergeexpected: protobuf.impl.flatland.core.FlatlandProtoBuf  actual: protobuf.PersistentProtocolBufferMap    diff: - protobuf.impl.flatland.core.FlatlandProtoBuf          + protobuf.PersistentProtocolBufferMaplein test :only clojure-protobuf-poc.core-test/mutationERROR in (mutation) (core_deftype.clj:583)Uncaught exception, not in assertion.expected: nil  actual: java.lang.IllegalArgumentException: No implementation of method: :->bytes of protocol: #'protobuf.core/ProtoBufAPI found for class: protobuf.PersistentProtocolBufferMap at clojure.core$_cache_protocol_fn.invokeStatic (core_deftype.clj:583)......