procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Port tests to help-quote-translation

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2015-06-21 23:09:34 -07:00
parent 0cee2fbc7d
commit f3cec81955
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/automated/ert-x-tests.el
View file

@ -196,8 +196,8 @@
(should (string-match (concat
"\\`ert-test-describe-test is a test"
" defined in"
" [`‘]ert-x-tests.elc?['’]\\.\n\n"
"Tests [`‘]ert-describe-test['’]\\.\n\\'")
" ['`‘]ert-x-tests.elc?['’]\\.\n\n"
"Tests ['`‘]ert-describe-test['’]\\.\n\\'")
(buffer-string)))))))))
(ert-deftest ert-test-message-log-truncation ()

4
test/automated/package-test.el
View file

@ -394,7 +394,7 @@ Must called from within a `tar-mode' buffer."
(goto-char (point-min))
(should (search-forward "simple-single is an installed package." nil t))
(should (re-search-forward
"Status: Installed in [`‘]~/simple-single-1.3/['’] (unsigned)."
"Status: Installed in ['`‘]~/simple-single-1.3/['’] (unsigned)."
nil t))
(should (search-forward "Version: 1.3" nil t))
(should (search-forward "Summary: A single-file package with no dependencies"
@ -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 (string-equal (match-string-no-properties 1) "installed"))
(should (re-search-forward
"Status: Installed in [`‘]~/signed-good-1.0/['’]."
"Status: Installed in ['`‘]~/signed-good-1.0/['’]."
nil t))))))