diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/erc/erc-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index d77d8588dad..eaff5640aa0 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el | |||
| @@ -825,8 +825,11 @@ | |||
| 825 | (should (equal (erc-parse-modes "-o bob") '(nil nil (("o" off "bob"))))) | 825 | (should (equal (erc-parse-modes "-o bob") '(nil nil (("o" off "bob"))))) |
| 826 | (should (equal (erc-parse-modes "+uo bob") '(("u") nil (("o" on "bob"))))) | 826 | (should (equal (erc-parse-modes "+uo bob") '(("u") nil (("o" on "bob"))))) |
| 827 | (should (equal (erc-parse-modes "+o-u bob") '(nil ("u") (("o" on "bob"))))) | 827 | (should (equal (erc-parse-modes "+o-u bob") '(nil ("u") (("o" on "bob"))))) |
| 828 | |||
| 828 | (should (equal (erc-parse-modes "+uo-tv bob alice") | 829 | (should (equal (erc-parse-modes "+uo-tv bob alice") |
| 829 | '(("u") ("t") (("o" on "bob") ("v" off "alice"))))) | 830 | '(("u") ("t") (("o" on "bob") ("v" off "alice"))))) |
| 831 | (should (equal (erc-parse-modes "+u-t+o-v bob alice") | ||
| 832 | '(("u") ("t") (("o" on "bob") ("v" off "alice"))))) | ||
| 830 | 833 | ||
| 831 | (ert-info ("Modes of type B are always grouped as unary") | 834 | (ert-info ("Modes of type B are always grouped as unary") |
| 832 | (should (equal (erc-parse-modes "+k h2") '(nil nil (("k" on "h2"))))) | 835 | (should (equal (erc-parse-modes "+k h2") '(nil nil (("k" on "h2"))))) |