12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394 |
- (define-module (test-suite test-ice-9-q)
- #:use-module (test-suite lib)
- #:use-module (ice-9 q))
- (define (true-if-catch-q-empty thunk)
- (catch 'q-empty
- (lambda ()
- (thunk)
- #f)
- (lambda args
- #t)))
- (with-test-prefix "q-pop!"
- (with-test-prefix "no elems"
- (let ((q (make-q)))
- (pass-if "empty" (true-if-catch-q-empty
- (lambda ()
- (q-pop! q))))
- (pass-if "valid at end" (q? q))))
- (with-test-prefix "one elem"
- (let ((x (cons 1 2))
- (q (make-q)))
- (q-push! q x)
- (pass-if "x" (eq? x (q-pop! q)))
- (pass-if "valid after x" (q? q))
- (pass-if "empty" (true-if-catch-q-empty
- (lambda ()
- (q-pop! q))))
- (pass-if "valid at end" (q? q))))
- (with-test-prefix "two elems"
- (let ((x (cons 1 2))
- (y (cons 3 4))
- (q (make-q)))
- (q-push! q x)
- (q-push! q y)
- (pass-if "y" (eq? y (q-pop! q)))
- (pass-if "valid after y" (q? q))
- (pass-if "x" (eq? x (q-pop! q)))
- (pass-if "valid after x" (q? q))
- (pass-if "empty" (true-if-catch-q-empty
- (lambda ()
- (q-pop! q))))
- (pass-if "valid at end" (q? q))))
- (with-test-prefix "three elems"
- (let ((x (cons 1 2))
- (y (cons 3 4))
- (z (cons 5 6))
- (q (make-q)))
- (q-push! q x)
- (q-push! q y)
- (q-push! q z)
- (pass-if "z" (eq? z (q-pop! q)))
- (pass-if "valid after z" (q? q))
- (pass-if "y" (eq? y (q-pop! q)))
- (pass-if "valid after y" (q? q))
- (pass-if "x" (eq? x (q-pop! q)))
- (pass-if "valid after x" (q? q))
- (pass-if "empty" (true-if-catch-q-empty
- (lambda ()
- (q-pop! q))))
- (pass-if "valid at end" (q? q)))))
|