Commit f3cec819 authored by Paul Eggert's avatar Paul Eggert
Browse files

Port tests to help-quote-translation

* test/automated/ert-x-tests.el (ert-test-describe-test):
* test/automated/package-test.el (package-test-describe-package)
(package-test-signed): Allow straight quotes, too.
parent 0cee2fbc
...@@ -196,8 +196,8 @@ ...@@ -196,8 +196,8 @@
(should (string-match (concat (should (string-match (concat
"\\`ert-test-describe-test is a test" "\\`ert-test-describe-test is a test"
" defined in" " defined in"
" [`‘]ert-x-tests.elc?['’]\\.\n\n" " ['`‘]ert-x-tests.elc?['’]\\.\n\n"
"Tests [`‘]ert-describe-test['’]\\.\n\\'") "Tests ['`‘]ert-describe-test['’]\\.\n\\'")
(buffer-string))))))))) (buffer-string)))))))))
(ert-deftest ert-test-message-log-truncation () (ert-deftest ert-test-message-log-truncation ()
......
...@@ -394,7 +394,7 @@ Must called from within a `tar-mode' buffer." ...@@ -394,7 +394,7 @@ Must called from within a `tar-mode' buffer."
(goto-char (point-min)) (goto-char (point-min))
(should (search-forward "simple-single is an installed package." nil t)) (should (search-forward "simple-single is an installed package." nil t))
(should (re-search-forward (should (re-search-forward
"Status: Installed in [`‘]~/simple-single-1.3/['’] (unsigned)." "Status: Installed in ['`‘]~/simple-single-1.3/['’] (unsigned)."
nil t)) nil t))
(should (search-forward "Version: 1.3" nil t)) (should (search-forward "Version: 1.3" nil t))
(should (search-forward "Summary: A single-file package with no dependencies" (should (search-forward "Summary: A single-file package with no dependencies"
...@@ -467,7 +467,7 @@ Must called from within a `tar-mode' buffer." ...@@ -467,7 +467,7 @@ Must called from within a `tar-mode' buffer."
(should (re-search-forward "signed-good is an? \\(\\S-+\\) package." nil t)) (should (re-search-forward "signed-good is an? \\(\\S-+\\) package." nil t))
(should (string-equal (match-string-no-properties 1) "installed")) (should (string-equal (match-string-no-properties 1) "installed"))
(should (re-search-forward (should (re-search-forward
"Status: Installed in [`‘]~/signed-good-1.0/['’]." "Status: Installed in ['`‘]~/signed-good-1.0/['’]."
nil t)))))) nil t))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment