From d7de408301661ef88f59d28387dfa419abbcc18e Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Wed, 29 Jun 2011 14:32:51 -0400 Subject: [PATCH] Making :basic/bigtext/2 a stronger test --- tests/test-basic.lisp | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp index 9dad688..24129e6 100644 --- a/tests/test-basic.lisp +++ b/tests/test-basic.lisp @@ -208,18 +208,24 @@ )) nil) (deftest :basic/bigtext/2 - (dotimes (n 10) - (with-dataset *ds-bigtext* - (let* ((len (random 7500)) - (str (make-string len :initial-element #\a)) - (cmd (format nil "INSERT INTO testbigtext (a) VALUES ('~a')" str))) - (execute-command cmd) - (let ((a (first (query "SELECT a from testbigtext" - :flatp t :field-names nil)))) - (assert (string= str a) (str a) - "mismatch on a. inserted: ~a returned: ~a" len (length a))) - ))) - nil) + (flet ((random-char () + (let ((alphabet "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ") + (idx (random 52))) + (elt alphabet idx)))) + (dotimes (n 10) + (with-dataset *ds-bigtext* + (let* ((len (random 7500)) + (str (coerce (make-array len + :initial-contents (loop repeat len collect (random-char))) + 'string)) + (cmd (format nil "INSERT INTO testbigtext (a) VALUES ('~a')" str))) + (execute-command cmd) + (let ((a (first (query "SELECT a from testbigtext" + :flatp t :field-names nil)))) + (assert (string= str a) (str a) + "mismatch on randomized bigtext(~a) inserted: ~s returned: ~s" len str a)) + )))) + nil) )) -- 2.34.1