From b31454d592d1aa45d37494cc9a8698aa6560a1d4 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 9 Dec 2008 03:47:08 -0500 Subject: [PATCH] added more tests for set/get position --- scheme/last-revision | 2 +- scheme/tests/set-position.ss | 11 +++++++---- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index 44b88aa..36dd03b 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1709 +1710 diff --git a/scheme/tests/set-position.ss b/scheme/tests/set-position.ss index 9ee58fa..1c74215 100644 --- a/scheme/tests/set-position.ss +++ b/scheme/tests/set-position.ss @@ -12,7 +12,9 @@ (for-each (lambda (x) (set-port-position! p (car x)) - (put-u8 p (cadr x))) + (assert (= (port-position p) (car x))) + (put-u8 p (cadr x)) + (assert (= (port-position p) (add1 (car x))))) pos-list) (close-output-port p))) @@ -25,8 +27,7 @@ (define (test-setting-position-for-binary-output-files) (write-bytes) (let ([bv (get-bytes)]) - (assert (= (bytevector-length bv) - (add1 (apply max (map car pos-list))))) + (assert (= (bytevector-length bv) (add1 (apply max (map car pos-list))))) (for-each (lambda (x) (assert (= (bytevector-u8-ref bv (car x)) (cadr x)))) @@ -38,7 +39,9 @@ (let ([p (open-file-input-port fname)]) (define (check-pos x) (set-port-position! p (car x)) - (assert (= (get-u8 p) (cadr x)))) + (assert (= (port-position p) (car x))) + (assert (= (get-u8 p) (cadr x))) + (assert (= (port-position p) (add1 (car x))))) (for-each check-pos pos-list) (for-each check-pos (reverse pos-list)) (close-input-port p))