X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fv1-add-remove-add.t;h=23f4fb1181becc7f0a018cba8a5845da585ebc7a;hb=e6b7a7f5f70fb89a54ff158bc6c8b564149947e5;hp=736e414e354045b09bf97a5c1d106e6b052d4c9f;hpb=b3f81ce0c71d5d4eca347f259b5ae69660a2cb13;p=public-inbox.git diff --git a/t/v1-add-remove-add.t b/t/v1-add-remove-add.t index 736e414e..23f4fb11 100644 --- a/t/v1-add-remove-add.t +++ b/t/v1-add-remove-add.t @@ -3,30 +3,29 @@ 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 removed'); ok($im->add($mime), 'message added again');