v2writable: support purging messages from git entirely

[public-inbox.git] / t / v2writable.t

diff --git a/t/v2writable.t b/t/v2writable.t
index 6cabf0d575b1eac0a22d0549e0792dad7b578054..0eda432a81bcb0dd59fc7d9bd21a6527ccf4e797 100644 (file)
--- a/t/v2writable.t
+++ b/t/v2writable.t
@@ -79,8 +79,8 @@ if ('ensure git configs are correct') {
        ok($im->add($mime), 'reused mid ok');
        like(join(' ', @warn), qr/reused/, 'warned about reused MID');
        my @mids = $mime->header_obj->header_raw('Message-Id');
-       is($mids[1], '<a-mid@b>', 'original mid not changed');
-       like($mids[0], $sane_mid, 'new MID added');
+       is($mids[0], '<a-mid@b>', 'original mid not changed');
+       like($mids[1], $sane_mid, 'new MID added');
        is(scalar(@mids), 2, 'only one new MID added');
 
        @warn = ();
@@ -95,8 +95,8 @@ if ('ensure git configs are correct') {
        ok($im->add($mime), 'random MID made');
        like(join(' ', @warn), qr/using random/, 'warned about using random');
        @mids = $mime->header_obj->header_raw('Message-Id');
-       is($mids[1], '<a-mid@b>', 'original mid not changed');
-       like($mids[0], $sane_mid, 'new MID added');
+       is($mids[0], '<a-mid@b>', 'original mid not changed');
+       like($mids[1], $sane_mid, 'new MID added');
        is(scalar(@mids), 2, 'only one new MID added');
 
        @warn = ();
@@ -231,4 +231,11 @@ EOF
        ok(!$@, '->done is idempotent');
 }
 
+{
+       ok($im->add($mime), 'add message to be purged');
+       local $SIG{__WARN__} = sub {};
+       ok($im->purge($mime), 'purged message');
+       $im->done;
+}
+
 done_testing();