X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fhtml_index.t;h=158a7862cfdd07abc9828ff2fe6e60d7bc5c0657;hb=95bdac7f09c69036efed537a4d03d5bdd2ae4eb6;hp=6896eb41b7ff5ae8f3bc48fb9472c32e22ca584a;hpb=fe3d2447badd595df784541556311137b920b0a2;p=public-inbox.git diff --git a/t/html_index.t b/t/html_index.t index 6896eb41..158a7862 100644 --- a/t/html_index.t +++ b/t/html_index.t @@ -1,5 +1,5 @@ -# Copyright (C) 2014-2015 all contributors -# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) +# Copyright (C) 2014-2020 all contributors +# License: AGPL-3.0+ use strict; use warnings; use Test::More; @@ -7,10 +7,17 @@ use Email::MIME; use PublicInbox::Feed; use PublicInbox::Git; use PublicInbox::Import; -use File::Temp qw/tempdir/; -my $tmpdir = tempdir('pi-http-XXXXXX', TMPDIR => 1, CLEANUP => 1); +use PublicInbox::Inbox; +use PublicInbox::TestCommon; +my ($tmpdir, $for_destroy) = tmpdir(); my $git_dir = "$tmpdir/gittest"; -my $git = PublicInbox::Git->new($git_dir); +my $ibx = PublicInbox::Inbox->new({ + address => 'test@example', + name => 'tester', + inboxdir => $git_dir, + url => 'http://example.com/test', +}); +my $git = $ibx->git; my $im = PublicInbox::Import->new($git, 'tester', 'test@example'); # setup @@ -19,11 +26,6 @@ my $im = PublicInbox::Import->new($git, 'tester', 'test@example'); my $prev = ""; foreach my $i (1..6) { - # my $pid = open(my $pipe, "|-"); - # defined $pid or die "fork/pipe failed: $!\n"; - # if ($pid == 0) { - # exec("ssoma-mda", $git_dir); - # } my $mid = "<$i\@example.com>"; my $mid_line = "Message-ID: $mid"; if ($prev) { @@ -51,15 +53,4 @@ EOF $im->done; } -# check HTML index -{ - use IO::File; - my $cb = PublicInbox::Feed::generate_html_index({ - git_dir => $git_dir, - max => 3 - }); - require 't/common.perl'; - like(stream_to_string($cb), qr/html/, "feed is valid HTML :)"); -} - done_testing();