[dynamic] Free captcha IDs unconditionally if under pressure

1 files changed, 8 insertions, 1 deletions

diff --git a/haunt/tests/captcha.scm b/haunt/tests/captcha.scm
index 547fd5a..00fecbf 100644
--- a/haunt/tests/captcha.scm
+++ b/haunt/tests/captcha.scm
@@ -19,7 +19,7 @@
 
 (test-begin "id-queue-test")
 
-(define queue (make-queue 64))
+(define queue (make-queue 4 #:min-free-threshold 2))
 
 (define id1 (dequeue-id! queue))
 (define id2 (dequeue-id! queue))
@@ -36,4 +36,11 @@
 (release-id! id2 queue)
 (test-assert (zero? (length (id-queue-allocated queue))))
 
+;; IDs are unconditionally freed under pressure.
+(define id11 (dequeue-id! queue))
+(define id12 (dequeue-id! queue))
+(define id13 (dequeue-id! queue))
+(define id14 (dequeue-id! queue))
+(test-assert (member id11 (id-queue-free queue)))
+
 (test-end "id-queue-test")