about summary refs log tree commit diff
path: root/third_party/lisp/mime4cl/test/mime.lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2023-05-09T17·08+0200
committersterni <sternenseemann@systemli.org>2023-05-16T16·25+0000
commita4d740af2ec82d24f513ca060ada07c8842ab764 (patch)
treed24ea2f595c2d7013e9c3a3bc650cb331b248387 /third_party/lisp/mime4cl/test/mime.lisp
parente815b680c0d7fdd99c0bdb4b198e3f4c591997b8 (diff)
refactor(3p/lisp/mime4cl/test): create one test case per sample file r/6147
Since rt.lisp seems to start tests in parallel, the informational output
about which sample file is being tested gets mangled in all sorts of
ways. The solution is to just loop over the sample files outside a test
and schedule a single test case per sample file from there.

Change-Id: I4494e4a526ce6d92a298cf7daf06c8013c7ca605
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8569
Reviewed-by: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
Diffstat (limited to 'third_party/lisp/mime4cl/test/mime.lisp')
-rw-r--r--third_party/lisp/mime4cl/test/mime.lisp26
1 files changed, 12 insertions, 14 deletions
diff --git a/third_party/lisp/mime4cl/test/mime.lisp b/third_party/lisp/mime4cl/test/mime.lisp
index 2b87c9e5a4ff..dbd1dd996dcc 100644
--- a/third_party/lisp/mime4cl/test/mime.lisp
+++ b/third_party/lisp/mime4cl/test/mime.lisp
@@ -27,17 +27,15 @@
                          *load-pathname*
                          #P"")))
 
-(deftest mime.1
-    (loop
-       for f in (directory (make-pathname :defaults *samples-directory*
-                                          :name :wild
-                                          :type "msg"))
-       do
-         (format t "~A:~%" f)
-         (finish-output)
-         (let* ((orig (mime-message f))
-                (dup (mime-message (with-output-to-string (out) (encode-mime-part orig out)))))
-           (unless (mime= orig dup)
-             (return nil)))
-       finally (return t))
-  t)
+(loop
+ for f in (directory (make-pathname :defaults *samples-directory*
+                                    :name :wild
+                                    :type "msg"))
+ for i from 1
+ do
+ (add-test (intern (format nil "MIME.~A" i))
+           `(let* ((orig (mime-message ,f))
+                   (dup (mime-message
+                         (with-output-to-string (out) (encode-mime-part orig out)))))
+              (mime= orig dup))
+           t))