diff options
author | David Edmondson <dme@dme.org> | 2012-01-30 14:59:54 +0000 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2012-02-03 21:24:48 -0400 |
commit | 32d7b3aabd4cdba0fcf80e95a701bb64d3bf4980 (patch) | |
tree | b4c21449edfaa9c5888c8fbd43449dd9c2d5dc13 /test | |
parent | 6bd3d8af5431542f352f084b6366e88b98b019a1 (diff) |
emacs: More address cleaning.
Remove outer single-quotes from the mailbox part. Allow for multiple
sets of nested single and double quotes.
Add more tests.
Diffstat (limited to 'test')
-rw-r--r-- | test/emacs-address-cleaning.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/emacs-address-cleaning.el b/test/emacs-address-cleaning.el index 3b0b109b..8423245f 100644 --- a/test/emacs-address-cleaning.el +++ b/test/emacs-address-cleaning.el @@ -21,11 +21,19 @@ "foo (at home) <foo@bar.com>" "foo [at home] <foo@bar.com>" "Foo Bar" + "'Foo Bar' <foo@bar.com>" + "\"'Foo Bar'\" <foo@bar.com>" + "'\"Foo Bar\"' <foo@bar.com>" + "'\"'Foo Bar'\"' <foo@bar.com>" "Fred Dibna \\[extraordinaire\\] <fred@dibna.com>")) (expected '("ДБ <db-uknot@stop.me.uk>" "foo (at home) <foo@bar.com>" "foo [at home] <foo@bar.com>" "Foo Bar" + "Foo Bar <foo@bar.com>" + "Foo Bar <foo@bar.com>" + "Foo Bar <foo@bar.com>" + "Foo Bar <foo@bar.com>" "Fred Dibna [extraordinaire] <fred@dibna.com>")) (output (mapcar #'notmuch-show-clean-address input))) (notmuch-test-expect-equal output expected))) |