[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/emacsql 1bea33bd45 04/11: test: Fix indentation
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/emacsql 1bea33bd45 04/11: test: Fix indentation |
Date: |
Fri, 19 Jan 2024 19:00:24 -0500 (EST) |
branch: elpa/emacsql
commit 1bea33bd451097a1ff3d9b132b6783556ff539ef
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
test: Fix indentation
---
tests/emacsql-compiler-tests.el | 60 ++++++++++++++++++++---------------------
1 file changed, 30 insertions(+), 30 deletions(-)
diff --git a/tests/emacsql-compiler-tests.el b/tests/emacsql-compiler-tests.el
index 9b69a11a0b..900bf655d5 100644
--- a/tests/emacsql-compiler-tests.el
+++ b/tests/emacsql-compiler-tests.el
@@ -133,8 +133,8 @@
:references bar [aa bb]
:on-delete :cascade))]
'()
- (concat "CREATE TABLE foo (a &NONE, b &NONE, c &NONE, FOREIGN KEY (a, b)
"
- "REFERENCES bar (aa, bb) ON DELETE CASCADE);"))
+ (concat "CREATE TABLE foo (a &NONE, b &NONE, c &NONE, FOREIGN KEY (a, b) "
+ "REFERENCES bar (aa, bb) ON DELETE CASCADE);"))
;; Template
([:create-table $i1 $S2] '(foo [alpha beta delta])
"CREATE TABLE foo (alpha &NONE, beta &NONE, delta &NONE);")
@@ -217,40 +217,40 @@
(ert-deftest emacsql-alter-table ()
(emacsql-tests-with-queries
- ([:alter-table foo :rename-to bar] '()
- "ALTER TABLE foo RENAME TO bar;")
- ([:alter-table $i1 :rename-to $i2] '(alpha beta)
- "ALTER TABLE alpha RENAME TO beta;")
- ([:alter-table foo :add-column size :integer :not-null] '()
- "ALTER TABLE foo ADD COLUMN size INTEGER NOT NULL;")))
+ ([:alter-table foo :rename-to bar] '()
+ "ALTER TABLE foo RENAME TO bar;")
+ ([:alter-table $i1 :rename-to $i2] '(alpha beta)
+ "ALTER TABLE alpha RENAME TO beta;")
+ ([:alter-table foo :add-column size :integer :not-null] '()
+ "ALTER TABLE foo ADD COLUMN size INTEGER NOT NULL;")))
(ert-deftest emacsql-funcall ()
(emacsql-tests-with-queries
- ([:select (funcall count x)] '()
- "SELECT count(x);")
- ([:select (funcall count *)] '()
- "SELECT count(*);")
- ([:select (funcall group-concat x y)] '()
- "SELECT group_concat(x, y);")
- ([:select (funcall foobar :distinct x y)] '()
- "SELECT foobar(':distinct', x, y);")
- ([:select (funcall count :distinct x)] '()
- "SELECT count(DISTINCT x);")))
+ ([:select (funcall count x)] '()
+ "SELECT count(x);")
+ ([:select (funcall count *)] '()
+ "SELECT count(*);")
+ ([:select (funcall group-concat x y)] '()
+ "SELECT group_concat(x, y);")
+ ([:select (funcall foobar :distinct x y)] '()
+ "SELECT foobar(':distinct', x, y);")
+ ([:select (funcall count :distinct x)] '()
+ "SELECT count(DISTINCT x);")))
(ert-deftest emacsql-precedence ()
(emacsql-tests-with-queries
- ([:select (<< (not (is x nil)) 4)] '()
- "SELECT (NOT x IS NULL) << 4;")
- ([:select (* 3 (+ (/ 14 2) (- 5 3)))] '()
- "SELECT 3 * (14 / 2 + (5 - 3));")
- ([:select (- (|| (~ x) y))] '()
- "SELECT -~x || y;")
- ([:select (funcall length (|| (* x x) (* y y) (* z z)))] '()
- "SELECT length((x * x) || (y * y) || (z * z));")
- ([:select (and (+ (<= x y) 1) (>= y x))] '()
- "SELECT (x <= y) + 1 AND y >= x;")
- ([:select (or (& (<= x (+ y 1) (- z)) 1) (>= x z y))] '()
- "SELECT (y + 1 BETWEEN x AND -z) & 1 OR z BETWEEN y AND x;")))
+ ([:select (<< (not (is x nil)) 4)] '()
+ "SELECT (NOT x IS NULL) << 4;")
+ ([:select (* 3 (+ (/ 14 2) (- 5 3)))] '()
+ "SELECT 3 * (14 / 2 + (5 - 3));")
+ ([:select (- (|| (~ x) y))] '()
+ "SELECT -~x || y;")
+ ([:select (funcall length (|| (* x x) (* y y) (* z z)))] '()
+ "SELECT length((x * x) || (y * y) || (z * z));")
+ ([:select (and (+ (<= x y) 1) (>= y x))] '()
+ "SELECT (x <= y) + 1 AND y >= x;")
+ ([:select (or (& (<= x (+ y 1) (- z)) 1) (>= x z y))] '()
+ "SELECT (y + 1 BETWEEN x AND -z) & 1 OR z BETWEEN y AND x;")))
(provide 'emacsql-compiler-tests)
- [nongnu] elpa/emacsql updated (e2b2df570d -> ffd501a588), ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql ce25410db4 03/11: Update cl-flet indentation, ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql 1bea33bd45 04/11: test: Fix indentation,
ELPA Syncer <=
- [nongnu] elpa/emacsql 8be75b66b1 05/11: Use `and' instead of `when' if value matters, ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql 1b8297b671 06/11: Use `setq' instead of `setf', ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql a4b4dce9a5 07/11: Use `put' instead of `setf' and `get', ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql 777abb9e9e 09/11: Use `oref' instead of `slot-value', ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql ffd501a588 11/11: Newline cosmetics, ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql 3ec2c96e58 02/11: emacsql-log-buffer: Deprecate this accessor for log-buffer slot, ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql 49b9858683 01/11: Change case of EmacSQL in deprecation warning, ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql dacc764567 08/11: Use `oref' instead of `eieio-oref', ELPA Syncer, 2024/01/19
- [nongnu] elpa/emacsql fdd0dbec38 10/11: Use `oset' instead of `setf' and `slot-value', ELPA Syncer, 2024/01/19