From 57ed480bf793551d76f583110e2c8b757d8bef5a Mon Sep 17 00:00:00 2001 From: Tims Gardner Date: Thu, 19 Sep 2019 14:08:56 -0400 Subject: [PATCH] fixing bug in arcadia-tests --- Tests/arcadia/arcadia_tests.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Tests/arcadia/arcadia_tests.clj b/Tests/arcadia/arcadia_tests.clj index 9ca3b6ed..1a5fee2e 100644 --- a/Tests/arcadia/arcadia_tests.clj +++ b/Tests/arcadia/arcadia_tests.clj @@ -432,12 +432,12 @@ "partial state retrieval after state-")))) (as-sub-closing [t "update-state"] (let [s {:counter 0}] - (with-temp-objects [obj (ac/instantiate obj)] + (with-temp-objects :lit [obj] (ac/state+ obj :test s) (ac/update-state obj :test update :counter inc) (at/is (= (ac/state obj :test) {:counter 1}) "`update-state` works with 5 arguments")) - (with-temp-objects [obj (ac/instantiate obj)] + (with-temp-objects :lit [obj] (ac/state+ obj :test {}) (ac/update-state obj :test assoc :a :A,:b :B,:c :C,:d :D,:e :E) (at/is (= (ac/state obj :test) {:a :A,:b :B,:c :C,:d :D,:e :E})