Added checks against releasing an untaken lock

1 files changed, 12 insertions, 0 deletions

diff --git a/test/rw-lock.lisp b/test/rw-lock.lisp
index 4460398..fdb60bd 100644
--- a/test/rw-lock.lisp
+++ b/test/rw-lock.lisp
@@ -33,6 +33,12 @@
       (is (rw-lock-p (release-read-lock lock)))
       (is (rw-lock-p (release-read-lock lock))))))
 
+(test release-read-lock.failing
+  (let ((lock (make-rw-lock)))
+    (signals error (release-read-lock lock))
+    (is-true (acquire-write-lock lock :wait nil))
+    (signals error (release-read-lock lock))))
+
 (test acquire-write-lock.no-contention
   (let ((lock (make-rw-lock)))
     (is-true (acquire-write-lock lock :wait nil))
@@ -46,6 +52,12 @@
     (is-false (acquire-write-lock lock :wait nil))
     (is (rw-lock-p (release-write-lock lock)))))
 
+(test acquire-write-lock.failing
+  (let ((lock (make-rw-lock)))
+    (signals error (release-write-lock lock))
+    (is-true (acquire-read-lock lock :wait nil))
+    (signals error (release-write-lock lock))))
+
 (test acquire-read&write-lock.contention
   (let ((lock (make-rw-lock)))
     (is-true (acquire-read-lock lock :wait nil))