branch: elpa/pg
commit 1ef3cf3f8aae70aeaca0f062f5f9c91c5838770d
Author: Eric Marsden <eric.mars...@risk-engineering.org>
Commit: Eric Marsden <eric.mars...@risk-engineering.org>
Use exported constants pg-SEEK_CUR and friends
---
test/test-pg.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/test/test-pg.el b/test/test-pg.el
index 1b708109ee..6559443d2c 100755
--- a/test/test-pg.el
+++ b/test/test-pg.el
@@ -2740,7 +2740,7 @@ bar$$"))))
(rows (pg-result res :tuples)))
(should (eql 1 (length rows))))
(pg-lo-write con fd "Hi there mate")
- (pg-lo-lseek con fd 3 pg--SEEK_SET)
+ (pg-lo-lseek con fd 3 pg-SEEK_SET)
(should (eql 3 (pg-lo-tell con fd)))
(let ((substring (pg-lo-read con fd 7)))
(should (string= substring "there m")))
@@ -2762,30 +2762,30 @@ bar$$"))))
(dotimes (i 512)
(pg-exec-prepared con "SELECT lo_put($1, $2, $3)"
`((,oid . "int4") (,(* i 1024 1024) . "int8")
(,filler . "bytea"))))
- (pg-lo-lseek con fd (* 512 1024 1024) pg--SEEK_SET)
+ (pg-lo-lseek con fd (* 512 1024 1024) pg-SEEK_SET)
(dotimes (i 512)
(should (eql (* 1024 1024) (pg-lo-write con fd filler))))
;; Now check that the octets have been written as expected
- (let ((pos (pg-lo-lseek con fd 0 pg--SEEK_CUR)))
+ (let ((pos (pg-lo-lseek con fd 0 pg-SEEK_CUR)))
(should (eql pos target-len)))
(let ((pos (pg-lo-tell con fd)))
(should (eql pos target-len)))
- (let ((pos (pg-lo-lseek con fd 0 pg--SEEK_END)))
+ (let ((pos (pg-lo-lseek con fd 0 pg-SEEK_END)))
(should (eql pos target-len)))
(dotimes (i 100)
(let ((pos (random target-len)))
- (pg-lo-lseek con fd pos pg--SEEK_SET)
+ (pg-lo-lseek con fd pos pg-SEEK_SET)
(should (string= "Z" (pg-lo-read con fd 1)))))
(let* ((halfway (* 512 1024 1024)))
(pg-lo-truncate con fd halfway)
- (should (eql halfway (pg-lo-lseek con fd 0 pg--SEEK_END)))
- (pg-lo-lseek con fd 0 pg--SEND_SET)
+ (should (eql halfway (pg-lo-lseek con fd 0 pg-SEEK_END)))
+ (pg-lo-lseek con fd 0 pg-SEEK_SET)
(let ((filler (make-string (* 1024 1024) ?#)))
(dotimes (i 512)
(pg-lo-write con fd filler)))
(dotimes (i 100)
(let ((pos (random halfway)))
- (pg-lo-lseek con fd pos pg--SEEK_SET)
+ (pg-lo-lseek con fd pos pg-SEEK_SET)
(should (string= "#" (pg-lo-read con fd 1)))))))))
(defun pg-test-lo-import (con)
