diff options
Diffstat (limited to 'haunt/tests/captcha.scm')
| -rw-r--r-- | haunt/tests/captcha.scm | 9 |
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") |