Re: [PATCH] Add basic integration for Rmail

[Kyle Meyer <kyle@kyleam.com>]

Kyle Meyer writes:

> diff --git a/tests/piem-rmail-tests.el b/tests/piem-rmail-tests.el
[...]
> +
> +(ert-deftest piem-rmail-get-inbox ()

Hmm, as the name indicates, I originally meant for this test to cover
just piem-rmail-get-inbox...

> +  (let ((piem-inboxes '(("foo" :address "i@inbox.example.com")))
> +        (mbox-text "\
> +From mboxrd@z Thu Jan  1 00:00:00 1970
[...]
> +"))
> +    (should
> +     (equal "foo"
> +            (with-temp-buffer
> +              (insert mbox-text)
> +              (rmail-mode)
> +              (piem-rmail-get-inbox))))
> +    (should
> +     (equal (list "123@example.com" "456@example.com")
> +            (with-temp-buffer
> +              (insert mbox-text)
> +              (rmail-mode)
> +              (rmail-first-message)
> +              (list (piem-rmail-get-mid)
> +                    (progn
> +                      (rmail-next-message 1)
> +                      (piem-rmail-get-mid))))))))

... but then I ended up testing piem-rmail-get-mid in the same test.
I'll move the piem-rmail-get-mid bits into a dedicated test.