branch: elpa/emacsql
commit 1bea33bd451097a1ff3d9b132b6783556ff539ef
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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)
