Skip to content

Instantly share code, notes, and snippets.

@krukow

krukow/states-test.clj

Created May 5, 2010 07:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save krukow/390505 to your computer and use it in GitHub Desktop.
Save krukow/390505 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
states-test.clj
(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