mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

2020-03-29 Michael R. Mauger <michael@mauger.com>

Browse Source 
* 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.
This commit is contained in:
Michael R. Mauger 2020-03-29 20:52:10 -04:00
parent 4823fa1077
commit 82a632edc8
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/progmodes/sql.el
View File

@ -2683,7 +2683,7 @@ highlighting rules in SQL mode.")
nil 'require-match
init 'sql-product-history init))))
(defun sql-add-product (product display &optional plist)
(defun sql-add-product (product display &rest plist)
"Add support for a database product in `sql-mode'.
Add PRODUCT to `sql-product-alist' which enables `sql-mode' to

8
test/lisp/progmodes/sql-tests.el
View File

@ -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."