tests: add tests for 7max#8

40ants · Nov 29, 2017 · fc63ee5 · fc63ee5
1 parent 1c7f44e
commit fc63ee5
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/tests/test-regressions.lisp b/tests/test-regressions.lisp
@@ -5,3 +5,21 @@
   "https://github.com/sharplispers/log4cl/issues/1"
   (log4cl:start-hierarchy-watcher-thread)
   (finishes (log4cl-impl::save-hook)))
+
+(deftest recursive-lock.issue#8.1 ()
+  "https://github.com/sharplispers/log4cl/issues/8"
+  (finishes
+    (with-simple-restart (abort "Abort")
+      (handler-bind
+          ((error (lambda (condition)
+                    (log:error "caught error: ~A" condition)
+                    (abort))))
+        (log:warn "~@{~A ~A~}" 1)))))
+
+(defun logging-function ()
+  (log:warn "I log, too")
+  :result)
+
+(deftest recursive-lock.issue#8.2 ()
+  "https://github.com/sharplispers/log4cl/issues/8"
+  (finishes (log:warn "~A" (logging-function))))