 (ns com.draines.postal.message
   (:use [clojure.test :only [run-tests deftest is]]
         [com.draines.postal.date :only [make-date]])
-  (:import [java.util Properties]
+  (:import [java.util Properties UUID]
            [javax.mail Session Message$RecipientType]
            [javax.mail.internet MimeMessage InternetAddress]))
 

    (is (= "tempfile" (re-find #"tempfile" (message->str m))))
    (.delete f1)))

(comment
  (run-tests))

         (.setSentDate (or date (make-date)))
         (add-body! body)))))

(defn make-fixture [from to & {:keys [tag]}]
  (let [uuid (str (UUID/randomUUID))
        tag (or tag "[POSTAL]")]
    {:from from
     :to to
     :subject (format "%s Test -- %s" tag uuid)
     :body (format "Test %s" uuid)}))

(deftest test-simple
  (let [m {:from "fee@bar.dom"
           :to "Foo Bar <foo@bar.dom>"
