emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]