X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fv1-add-remove-add.t;h=23f4fb1181becc7f0a018cba8a5845da585ebc7a;hb=e6b7a7f5f70fb89a54ff158bc6c8b564149947e5;hp=2867bb9414c19f76ca4d9d8eacffcc50b8708ae7;hpb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;p=public-inbox.git diff --git a/t/v1-add-remove-add.t b/t/v1-add-remove-add.t index 2867bb94..23f4fb11 100644 --- a/t/v1-add-remove-add.t +++ b/t/v1-add-remove-add.t @@ -3,32 +3,31 @@ use strict; use warnings; use Test::More; -use PublicInbox::MIME; use PublicInbox::Import; use PublicInbox::TestCommon; +use PublicInbox::MIME; require_mods(qw(DBD::SQLite Search::Xapian)); require PublicInbox::SearchIdx; my ($inboxdir, $for_destroy) = tmpdir(); -is(system(qw(git init --bare -q), $inboxdir), 0); my $ibx = { inboxdir => $inboxdir, name => 'test-add-remove-add', -primary_address => 'test@example.com', }; $ibx = PublicInbox::Inbox->new($ibx); -my $mime = PublicInbox::MIME->create( - header => [ - From => 'a@example.com', - To => 'test@example.com', - Subject => 'this is a subject', - Date => 'Fri, 02 Oct 1993 00:00:00 +0000', - 'Message-ID' => '', - ], - body => "hello world\n", -); +my $mime = PublicInbox::MIME->new(<<'EOF'); +From: a@example.com +To: test@example.com +Subject: this is a subject +Message-ID: +Date: Fri, 02 Oct 1993 00:00:00 +0000 + +hello world +EOF my $im = PublicInbox::Import->new($ibx->git, undef, undef, $ibx); +$im->init_bare; ok($im->add($mime), 'message added'); -ok($im->remove($mime), 'message added'); +ok($im->remove($mime), 'message removed'); ok($im->add($mime), 'message added again'); $im->done; my $rw = PublicInbox::SearchIdx->new($ibx, 1);