Skip to content

Commit

Permalink
fixing bug in arcadia-tests
Browse files Browse the repository at this point in the history
  • Loading branch information
timsgardner committed Sep 19, 2019
1 parent 31b2bf4 commit 57ed480
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Tests/arcadia/arcadia_tests.clj
Original file line number Diff line number Diff line change
Expand Up @@ -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})
Expand Down

0 comments on commit 57ed480

Please sign in to comment.