Permalink
Browse files

Test more conditions in atomic.lisp

  • Loading branch information...
1 parent 905e816 commit 80b3886aae81e30071c27b085de3c8365b05605e @afeinberg committed Feb 7, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 tests/atomic.lisp
View
4 tests/atomic.lisp
@@ -13,13 +13,13 @@
(thread-2 (make-thread
(lambda ()
(loop
- when (atomic-boolean-cas nil t toggle-switch)
+ when (atomic-boolean-cas t nil toggle-switch)
return
(atomic-boolean-get-and-set nil keep-running))))))
(atomic-boolean-set t toggle-switch)
(join-thread thread-2)
(join-thread thread-1)
(is
(and
- (eq t (atomic-boolean-get toggle-switch))
+ (eq nil (atomic-boolean-get toggle-switch))
(eq nil (atomic-boolean-get keep-running))))))

0 comments on commit 80b3886

Please sign in to comment.