diff options
Diffstat (limited to 'test/lisp/progmodes/sql-tests.el')
| -rw-r--r-- | test/lisp/progmodes/sql-tests.el | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/test/lisp/progmodes/sql-tests.el b/test/lisp/progmodes/sql-tests.el index 7a11f762eb0..5ac34907c2d 100644 --- a/test/lisp/progmodes/sql-tests.el +++ b/test/lisp/progmodes/sql-tests.el @@ -270,5 +270,39 @@ Perform ACTION and validate results" (sql-test-product-feature-harness (should-not (sql-get-product-feature 'd :Z)))) +;;; SQL Oracle SCAN/DEFINE +(ert-deftest sql-tests-placeholder-filter () + "Test that placeholder relacement is as expected." + (let ((syntab (syntax-table)) + (sql-oracle-scan-on t) + (placeholder-value "")) + (set-syntax-table sql-mode-syntax-table) + + (cl-letf + (((symbol-function 'read-from-minibuffer) + (lambda (&rest _) placeholder-value))) + + (setq placeholder-value "XX") + (should (equal + (sql-placeholders-filter "select '&x' from dual;") + "select 'XX' from dual;")) + + (setq placeholder-value "&Y") + (should (equal + (sql-placeholders-filter "select '&x' from dual;") + "select '&Y' from dual;")) + (should (equal + (sql-placeholders-filter "select '&x' from dual;") + "select '&Y' from dual;")) + (should (equal + (sql-placeholders-filter "select '&x.' from dual;") + "select '&Y' from dual;")) + (should (equal + (sql-placeholders-filter "select '&x.y' from dual;") + "select '&Yy' from dual;"))) + + (set-syntax-table syntab))) + + (provide 'sql-tests) ;;; sql-tests.el ends here |