diff options
Diffstat (limited to 'third_party/lisp/mime4cl/test/mime.lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/test/mime.lisp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/third_party/lisp/mime4cl/test/mime.lisp b/third_party/lisp/mime4cl/test/mime.lisp index d1a56b0c0433..1488f927fcd3 100644 --- a/third_party/lisp/mime4cl/test/mime.lisp +++ b/third_party/lisp/mime4cl/test/mime.lisp @@ -1,6 +1,7 @@ ;;; mime.lisp --- MIME regression tests ;;; Copyright (C) 2012 by Walter C. Pelissero + ;;; Copyright (C) 2021 by the TVL Authors ;;; Author: Walter C. Pelissero <walter@pelissero.de> ;;; Project: mime4cl @@ -28,11 +29,13 @@ *load-pathname* #P""))) +(defvar *sample1-file* (make-pathname :defaults #.(or *compile-file-pathname* + *load-pathname*) + :name "sample1" + :type "msg")) + (deftest mime.1 - (let* ((orig (mime-message (make-pathname :defaults #.(or *compile-file-pathname* - *load-pathname*) - :name "sample1" - :type "msg"))) + (let* ((orig (mime-message *sample1-file*)) (dup (mime-message (with-output-to-string (out) (encode-mime-part orig out))))) (mime= orig dup)) t) |