[PATCH] lei q save-test

[PATCH] lei q save-test

[Eric Wong]

---
 t/lei-q-save.t | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/t/lei-q-save.t b/t/lei-q-save.t
index 53311696..937dc9dd 100644
--- a/t/lei-q-save.t
+++ b/t/lei-q-save.t
@@ -305,5 +305,26 @@ EOM
 	is(scalar(@new), 2, 'got new message');
 	is_xdeeply([grep { $_ eq $orig[0] } @new], \@orig,
 		'original message preserved on up w/ threads');
+
+	# incremental non-thread w/ keywords
+	$d = "$home/kw-no-thread";
+	lei_ok qw(q --no-external s:reply1 -o), $d;
+	@orig = glob("$d/*/*");
+	is(scalar(@orig), 1, 'one result so far');
+	lei_ok [ qw(import -F eml +kw:answered) ], undef,
+		{ %$lei_opt, 0 => \<<'EOM' };
+Date: Sun, 02 Oct 2023 00:00:01 +0000
+From: <x@example.com>
+In-Reply-To: <reply1@example.com>
+Message-ID: <reply1@0.example.com>
+Subject: Re: reply1
+
+EOM
+	lei_ok qw(up), $d;
+	@new = glob("$d/*/*");
+	diag explain([ \@orig, \@new ]);
+	# sleep 1;
+	# lei_ok qw(q -f text --no-external dt:2023-10-01..);
+	# diag $lei_out;
 });
 done_testing;