branch: elpa/pg
commit 190b6fe63316b7ba0d7b9ef961fb56539fc271b1
Author: Eric Marsden <[email protected]>
Commit: Eric Marsden <[email protected]>
Tests: better tests for long result tuples
---
test/test-pg.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/test/test-pg.el b/test/test-pg.el
index 43c7cf5f72d..5e813585b7b 100755
--- a/test/test-pg.el
+++ b/test/test-pg.el
@@ -901,9 +901,14 @@ bar$$"))))
(let* ((big (concat "SELECT length('foobles" (make-string (* 10 1024) ?0)
"baz')"))
(res (scalar big)))
(should (numberp res)))
- (let ((long (scalar "SELECT repeat('z', 1000000)")))
- (should (eql 1000000 (length long))))))
-
+ (dolist (size (list 50 5000 500000))
+ (let* ((sql (format "SELECT repeat('#', %d)" size))
+ (str (scalar sql)))
+ (should (eql size (length str)))))
+ (let ((long (scalar "SELECT repeat('z', 1000000) || 'foo'")))
+ (should (eql 1000003 (length long)))
+ (should (string-prefix-p "zzz" long))
+ (should (string-suffix-p "foo" long)))))
(defun pg-test-insert (con)
