Skip to content

Instantly share code, notes, and snippets.

Created May 5, 2010 07:54
What would you like to do?
(def default-policy (TransitionPolicy. 5 5000))
(def initial-state (ClosedState. default-policy 0))
(assert (= initial-state (on-success initial-state)))
(assert (= (ClosedState. default-policy 1) (on-error initial-state)))
(def e4 (ClosedState. default-policy 4))
(assert (= OpenState
(class (on-error (on-error e4)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment