@@ -20,6 +20,7 @@

 ;; requires smtp module too

 (eval-when (compile load eval)

+  (require :rfc2822)

   (require :smtp)

   (require :imap)

   (require :test))

@@ -243,6 +244,38 @@

    (net.post-office:decode-header-text "=?utf-8?q?=5BFranz_Wiki=5D_Update_of_=22Office/EmployeeDirectory=22_by_St?=

  =?utf-8?q?eveHaflich?="))

   )

+

+(defun test-parse-email-address ()

+  (dolist (good `(("foo@bar.com" "foo" "bar.com")

+		  ("layer@franz.com" "layer" "franz.com")

+		  ("

+

+layer@franz.com" "layer" "franz.com")

+		  (,(replace-re "XXlayer@franz.comX  X"

+				"X"

+				(format nil "~c" #\newline)

+				:single-line t)

+		   "layer" "franz.com")

+		  (,(replace-re "XXlayer@franz.comX  X"

+				"X"

+				(format nil "~c" #\return)

+				:single-line t)

+		   "layer" "franz.com")

+		  ;; local-part length = 64

+		  ("1234567890123456789012345678901234567890123456789012345678901234@foo.com"

+		   "1234567890123456789012345678901234567890123456789012345678901234"

+		   "foo.com")

+		  ))

+    (multiple-value-bind (local-part domain)

+	(net.mail:parse-email-address (first good))

+      (test-equal (second good) local-part)

+      (test-equal (third good) domain)))

+  (dolist (bad (list "@foo.com"

+		     ;; local-part length = 65

+		     "12345678901234567890123456789012345678901234567890123456789012345@foo.com"

+		     ))

+    (test-nil (net.mail:parse-email-address bad)))

+  )

 (defun test-imap ()

@@ -250,13 +283,15 @@

 		  #'(lambda (con)

 		      (format t "Got imap condition: ~a~%" con))))

     (test-mime)

+    (test-parse-email-address)

 ;;;; Only jkf is setup to run the tests.

     (when (string= "jkf" (sys:getenv "USER"))

       (test-connect)

       (test-sends)

       (test-flags)

       (test-mailboxes)

-      (test-pop))))

+      (test-pop)

+      )))

 (if* *do-test* then (do-test :imap #'test-imap))