diff options
| author | Michael R. Mauger <michael@mauger.com> | 2020-03-29 20:52:10 -0400 |
|---|---|---|
| committer | Michael R. Mauger <michael@mauger.com> | 2020-06-13 18:36:27 -0400 |
| commit | 82a632edc8b80bf16d9b9f205474bf9724b084c0 (patch) | |
| tree | 245241ac180fb22cd37e94f1dbf04a822799b2c5 /test | |
| parent | 4823fa1077e4330bd2574eb54731bb32e6370034 (diff) | |
| download | emacs-82a632edc8b80bf16d9b9f205474bf9724b084c0.tar.gz | |
2020-03-29 Michael R. Mauger <michael@mauger.com>
* lisp/progmodes/sql.el (sql-add-product): Re-correct argument
spec. Previous change was due to my mistake; I have
resolved back to the prior behavior (Bug#39960).
* test/lisp/progmodes/sql-tests.el (sql-test-add-product): Added
test to insure I don't make the same mistake again.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/progmodes/sql-tests.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test/lisp/progmodes/sql-tests.el b/test/lisp/progmodes/sql-tests.el index 65ed76bfb5d..91805ab7251 100644 --- a/test/lisp/progmodes/sql-tests.el +++ b/test/lisp/progmodes/sql-tests.el @@ -187,7 +187,13 @@ Perform ACTION and validate results" (sql-add-product 'xyz "XyzDb") (should (equal (pp-to-string (assoc 'xyz sql-product-alist)) - "(xyz :name \"XyzDb\")\n")))) + "(xyz :name \"XyzDb\")\n"))) + + (sql-test-product-feature-harness + (sql-add-product 'stu "StuDb" :X 1 :Y "2") + + (should (equal (pp-to-string (assoc 'stu sql-product-alist)) + "(stu :name \"StuDb\" :X 1 :Y \"2\")\n")))) (ert-deftest sql-test-add-existing-product () "Add a product that already exists." |