condition variables

This implements condition variables for elisp.
This needs more tests.

1 files changed, 13 insertions, 0 deletions

diff --git a/test/automated/threads.el b/test/automated/threads.el
index 4c1afbdde67..ce929fc0add 100644
--- a/test/automated/threads.el
+++ b/test/automated/threads.el
@@ -175,4 +175,17 @@
        (accept-process-output nil 1))
      threads-test-global)))
 
+(ert-deftest threads-condvarp ()
+  "simple test of condition-variablep"
+  (should-not (condition-variablep 'hi)))
+
+(ert-deftest threads-condvarp-2 ()
+  "another simple test of condition-variablep"
+  (should (condition-variablep (make-condition-variable (make-mutex)))))
+
+(ert-deftest threads-condvar-type ()
+  "type-of condvar"
+  (should (eq (type-of (make-condition-variable (make-mutex)))
+              'condition-variable)))
+
 ;;; threads.el ends here