projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for debian release 6.7.2-1
[clsql.git]
/
tests
/
test-basic.lisp
diff --git
a/tests/test-basic.lisp
b/tests/test-basic.lisp
index 4ccc02d97b11acfc4223412c1ffc1d59d43b5433..4d277e358d14ba2c722940c36e02df888371048d 100644
(file)
--- a/
tests/test-basic.lisp
+++ b/
tests/test-basic.lisp
@@
-229,14
+229,14
@@
(deftest :basic/reallybigintegers/1
(with-dataset *ds-reallybigintegers*
(deftest :basic/reallybigintegers/1
(with-dataset *ds-reallybigintegers*
- (let ((a (1- (expt 2 64)))
- (b (- (expt 2 64) 2))
- (c (expt 2 63))
- (d (expt 2 62)))
- (query
- (format nil "INSERT INTO testreallybigintegers
+ (let* ((a (1- (expt 2 64)))
+ (b (- (expt 2 64) 2))
+ (c (expt 2 63))
+ (d (expt 2 62))
+ (sql (format nil "INSERT INTO testreallybigintegers
VALUES (~A, ~A, ~A, ~A)"
VALUES (~A, ~A, ~A, ~A)"
- a b c d))
+ a b c d)))
+ (query sql)
(let ((results
(query
(format nil "SELECT * FROM testreallybigintegers"))))
(let ((results
(query
(format nil "SELECT * FROM testreallybigintegers"))))