diff options
| -rw-r--r-- | tests/test-pearl-naming.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/test-pearl-naming.el b/tests/test-pearl-naming.el index 383b913..cf3bd13 100644 --- a/tests/test-pearl-naming.el +++ b/tests/test-pearl-naming.el @@ -73,5 +73,15 @@ ""))) (should-not (string-match-p "saved quer" doc))))) +(ert-deftest test-pearl-naming-no-user-facing-saved-query-phrase () + "The Pearl-invented \"saved query\" phrase appears nowhere in pearl.el. +Internal helpers may keep the hyphenated `saved-query' symbol fragment, but no +user-facing prompt, message, transient label, or docstring says \"saved query\". +This is the source-level naming regression that locks the rename." + (let ((src (with-temp-buffer + (insert-file-contents (find-library-name "pearl")) + (buffer-string)))) + (should-not (string-match-p "saved query" src)))) + (provide 'test-pearl-naming) ;;; test-pearl-naming.el ends here |