diff options
| author | Michael Albinus | 2019-07-11 20:01:57 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-07-11 20:01:57 +0200 |
| commit | 37cb129979ff1342e1b567a6f5307a0b1e1ff962 (patch) | |
| tree | c61c7a6e6bdfa9a275b7bfd734ac3568462ddac6 | |
| parent | b44f0c457997af53808218536ebfdf507ddb5995 (diff) | |
| download | emacs-37cb129979ff1342e1b567a6f5307a0b1e1ff962.tar.gz emacs-37cb129979ff1342e1b567a6f5307a0b1e1ff962.zip | |
* test/lisp/format-spec-tests.el (test-format-unknown): Use `should-error'.
| -rw-r--r-- | test/lisp/format-spec-tests.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/test/lisp/format-spec-tests.el b/test/lisp/format-spec-tests.el index e831657a3e6..6fbfaaad83a 100644 --- a/test/lisp/format-spec-tests.el +++ b/test/lisp/format-spec-tests.el | |||
| @@ -31,10 +31,7 @@ | |||
| 31 | "foo bar zot"))) | 31 | "foo bar zot"))) |
| 32 | 32 | ||
| 33 | (ert-deftest test-format-unknown () | 33 | (ert-deftest test-format-unknown () |
| 34 | (should (eq (condition-case _ | 34 | (should-error (format-spec "foo %b %z zot" '((?b . "bar")))) |
| 35 | (format-spec "foo %b %z zot" '((?b . "bar"))) | ||
| 36 | (error :error)) | ||
| 37 | :error)) | ||
| 38 | (should (equal (format-spec "foo %b %z zot" '((?b . "bar")) t) | 35 | (should (equal (format-spec "foo %b %z zot" '((?b . "bar")) t) |
| 39 | "foo bar %z zot")) | 36 | "foo bar %z zot")) |
| 40 | (should (equal (format-spec "foo %b %z %% zot" '((?b . "bar")) t) | 37 | (should (equal (format-spec "foo %b %z %% zot" '((?b . "bar")) t) |