1999-08-12 Gary Houston <ghouston@easynet.co.uk>

	* tests/ports.test: lseek -> seek.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 3f964f1..6dd3390 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+1999-08-12  Gary Houston  <ghouston@easynet.co.uk>
+
+       * tests/ports.test: lseek -> seek.
+
 1999-08-04  Gary Houston  <ghouston@easynet.co.uk>
 
        * tests/ports.test: tests for buffered and unbuffered input/output

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 1f34c9b..b5034f9 100644 (file)
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -80,17 +80,17 @@
  (let* ((filename (test-file))
        (port (open-file filename "w+")))
    (display "J'Accuse" port)
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (pass-if "file: r/w 1"
            (char=? (read-char port) #\e))
    (pass-if "file: r/w 2"
            (eof-object? (read-char port)))
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (write-char #\x port)
-   (lseek port 7 SEEK_SET)
+   (seek port 7 SEEK_SET)
    (pass-if "file: r/w 3"
            (char=? (read-char port) #\x))
-   (lseek port -2 SEEK_END)
+   (seek port -2 SEEK_END)
    (pass-if "file: r/w 4"
            (char=? (read-char port) #\s))
    (delete-file filename)))
@@ -100,17 +100,17 @@
  (let* ((filename (test-file))
        (port (open-file filename "w+0")))
    (display "J'Accuse" port)
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (pass-if "file: ub r/w 1"
            (char=? (read-char port) #\e))
    (pass-if "file: ub r/w 2"
            (eof-object? (read-char port)))
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (write-char #\x port)
-   (lseek port 7 SEEK_SET)
+   (seek port 7 SEEK_SET)
    (pass-if "file: ub r/w 3"
            (char=? (read-char port) #\x))
-   (lseek port -2 SEEK_END)
+   (seek port -2 SEEK_END)
    (pass-if "file: ub r/w 4"
            (char=? (read-char port) #\s))
    (delete-file filename)))