[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/sqlite 3989088: Whitespace changes
From: |
Lars Ingebrigtsen |
Subject: |
scratch/sqlite 3989088: Whitespace changes |
Date: |
Tue, 7 Dec 2021 03:31:41 -0500 (EST) |
branch: scratch/sqlite
commit 3989088db2ae887e05b17b4bd5b373eca6b1b9c7
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Whitespace changes
---
test/src/sqlite-tests.el | 36 ++++++++++++------------------------
1 file changed, 12 insertions(+), 24 deletions(-)
diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el
index ae08710..65853a6 100644
--- a/test/src/sqlite-tests.el
+++ b/test/src/sqlite-tests.el
@@ -40,14 +40,12 @@
(should-error
(sqlite-execute
- db
- "insert into test1 (col1, col2, col3, col4) values ('foo', 2, 9.45,
'bar', 'zot')"))
+ db "insert into test1 (col1, col2, col3, col4) values ('foo', 2, 9.45,
'bar', 'zot')"))
(should
(=
(sqlite-execute
- db
- "insert into test1 (col1, col2, col3, col4) values ('foo', 2, 9.45,
'bar')")
+ db "insert into test1 (col1, col2, col3, col4) values ('foo', 2, 9.45,
'bar')")
1))
(should
@@ -68,24 +66,20 @@
(should
(=
- (sqlite-execute
- db "insert into test1 (col1, col2) values ('foo', 1)")
+ (sqlite-execute db "insert into test1 (col1, col2) values ('foo', 1)")
1))
(should
(=
- (sqlite-execute
- db "insert into test1 (col1, col2) values ('bar', 2)")
+ (sqlite-execute db "insert into test1 (col1, col2) values ('bar', 2)")
1))
(setq set (sqlite-select db "select * from test1" nil 'set))
(should (sqlitep set))
(should (sqlite-more-p set))
- (should
- (equal (sqlite-next set)
- '("foo" 1)))
- (should
- (equal (sqlite-next set)
- '("bar" 2)))
+ (should (equal (sqlite-next set)
+ '("foo" 1)))
+ (should (equal (sqlite-next set)
+ '("bar" 2)))
(should-not (sqlite-next set))
(should-not (sqlite-more-p set))))
@@ -126,18 +120,14 @@
(setq db (sqlite-open))
(sqlite-execute
db "create table if not exists test4 (col1 text, col2 number)")
- (sqlite-execute
- db "insert into test4 values (?, ?)"
- (list "foo" 1))
+ (sqlite-execute db "insert into test4 values (?, ?)" (list "foo" 1))
(should
(equal
- (sqlite-select
- db "select * from test4 where col2 = ?" '(1))
+ (sqlite-select db "select * from test4 where col2 = ?" '(1))
'(("foo" 1))))
(should
(equal
- (sqlite-select
- db "select * from test4 where col2 = ?" [1])
+ (sqlite-select db "select * from test4 where col2 = ?" [1])
'(("foo" 1))))))
(ert-deftest sqlite-binary ()
@@ -152,9 +142,7 @@
(buffer-string))))
(should-not (multibyte-string-p string))
(sqlite-execute
- db
- "insert into test5 values (?, ?)"
- (list string 2))
+ db "insert into test5 values (?, ?)" (list string 2))
(let ((out (caar
(sqlite-select db "select col1 from test5 where col2 = 2"))))
(should (equal out string))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/sqlite 3989088: Whitespace changes,
Lars Ingebrigtsen <=