From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <kyle@kyleam.com>
Received: from mp0 ([2001:41d0:2:aacc::])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	by ms12 with LMTPS
	id WA/EMxUqsGCSXQAAsNZ9tg
	(envelope-from <kyle@kyleam.com>)
	for <larch@inbox.kyleam.com>; Thu, 27 May 2021 23:24:05 +0000
Received: from out2.migadu.com ([2001:41d0:2:aacc::])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	by mp0 with LMTPS
	id Kk1FIxEqsGDTFwAA1q6Kng
	(envelope-from <kyle@kyleam.com>)
	for <larch@inbox.kyleam.com>; Thu, 27 May 2021 23:24:01 +0000
X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and include these headers.
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kyleam.com; s=key1;
	t=1622157841;
	h=from:from:reply-to:subject:subject:date:date:message-id:message-id:
	 to:to:cc:mime-version:mime-version:content-type:content-type:
	 in-reply-to:in-reply-to:references:references;
	bh=yadDFZ61UvTJlVL52QchpqNbyMq7xU+iRekB5gFpWoI=;
	b=fwgxYutVVMYsghmROh6n8tiQca4Gk+S0IGmaIlMGLxF7vBB3VyLu2zIezPI0DAnIK9Dx66
	uRPP2Cx+38PW5zZk76dZ7Utm3ZPoRw8ZnmFUvnC/3xh5KRWUuv00sxIpeU2MkxxLfo/mbB
	mfuMiQlPveUjC8ICbAf/YMBXdjAWk0A0dnw1DTFMcIG1SOOFp06i2Wgkk0WuNkIG80yj2T
	c0RncPW0GxV+domfVMXNlaqK2STA4YmmZT7gaoFtt10SiUweCHtAS+L2AKP6U2waZdDaFK
	Zu06vv0ACz4F/uAV+Xym+FSxS1DyRW0fbNO3CshrQ4kwN0ZCvZioxBimufc3xg==
From: Kyle Meyer <kyle@kyleam.com>
To: piem@inbox.kyleam.com
Subject: Re: [PATCH] Add basic integration for Rmail
In-Reply-To: <20210527213001.5265-1-kyle@kyleam.com>
References: <20210527213001.5265-1-kyle@kyleam.com>
Date: Thu, 27 May 2021 19:23:59 -0400
Message-ID: <875yz3iwvk.fsf@kyleam.com>
MIME-Version: 1.0
Content-Type: text/plain
X-Migadu-Flow: FLOW_OUT
X-Migadu-Auth-User: kyle@kyleam.com
X-TUID: ebnnX3M2uzTj

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.