]> git.notmuchmail.org Git - notmuch/blobdiff - test/emacs-address-cleaning.el
emacs: Fix indentation
[notmuch] / test / emacs-address-cleaning.el
index 19e9e055e37241dbbb4a20b035c31be445a3cd95..6eda0ebc913f9b3cd88193a5cc12dc65b8b18c33 100644 (file)
@@ -1,6 +1,6 @@
 (defun notmuch-test-address-cleaning-1 ()
   (notmuch-test-expect-equal (notmuch-show-clean-address "dme@dme.org")
-                       "dme@dme.org"))
+                            "dme@dme.org"))
 
 (defun notmuch-test-address-cleaning-2 ()
   (let* ((input '("foo@bar.com"
   (let* ((input '("ДБ <db-uknot@stop.me.uk>"
                  "foo (at home) <foo@bar.com>"
                  "foo [at home] <foo@bar.com>"
-                 "Foo Bar"))
+                 "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 <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)))