]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/import.t
search: remove subject_summary
[public-inbox.git] / t / import.t
index 6918484e481804ffcaee9c77c8474d023cced105..73f92adbbb6e6e3381c0880b63d4c9d26bf8be1e 100644 (file)
@@ -30,7 +30,7 @@ is(scalar @revs, 1, 'one revision created');
 
 $mime->header_set('Message-ID', '<b@example.com>');
 $mime->header_set('Subject', 'msg2');
-like($im->add($mime), qr/\A:\d+\z/, 'added 2nd message');
+like($im->add($mime, sub { $mime }), qr/\A:\d+\z/, 'added 2nd message');
 $im->done;
 @revs = $git->qx(qw(rev-list HEAD));
 is(scalar @revs, 2, '2 revisions exist');
@@ -57,9 +57,13 @@ is(undef, $im->remove($mime), 'remove is idempotent');
 # mismatch on identical Message-ID
 $mime->header_set('Message-ID', '<a@example.com>');
 ($mark, $msg) = $im->remove($mime);
-is($mark, -1, 'mark == -1 on mismatch');
+is($mark, 'MISMATCH', 'mark == MISMATCH on mismatch');
 is($msg->header('Message-ID'), '<a@example.com>', 'Message-ID matches');
 isnt($msg->header('Subject'), $mime->header('Subject'), 'subject mismatch');
 
+$mime->header_set('Message-Id', '<failcheck@example.com>');
+is($im->add($mime, sub { undef }), undef, 'check callback fails');
+is($im->remove($mime), undef, 'message not added, so not removed');
+
 $im->done;
 done_testing();