X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fwww_listing.t;h=63ef2eacfd407d510088a6532bc72b34177d5533;hb=860169adcd29341142b7c4a369c09b4ac492bd1e;hp=c4511cd1fed11cc46233e24b371b9d5c0f47b7f3;hpb=967f6d1b1626392ee4340ea356a00651462377b3;p=public-inbox.git diff --git a/t/www_listing.t b/t/www_listing.t index c4511cd1..63ef2eac 100644 --- a/t/www_listing.t +++ b/t/www_listing.t @@ -1,4 +1,4 @@ -# Copyright (C) 2019-2020 all contributors +# Copyright (C) 2019-2021 all contributors # License: AGPL-3.0+ # manifest.js.gz generation and grok-pull integration test use strict; @@ -7,21 +7,19 @@ use Test::More; use PublicInbox::Spawn qw(which); use PublicInbox::TestCommon; use PublicInbox::Import; -require_mods(qw(URI::Escape Plack::Builder Digest::SHA +require_mods(qw(json URI::Escape Plack::Builder Digest::SHA IO::Compress::Gzip IO::Uncompress::Gunzip HTTP::Tiny)); require PublicInbox::WwwListing; -my $json = do { - no warnings 'once'; - $PublicInbox::WwwListing::json; -} or plan skip_all => "JSON module missing"; +require PublicInbox::ManifestJsGz; +use PublicInbox::Config; +my $json = PublicInbox::Config::json(); use_ok 'PublicInbox::Git'; my ($tmpdir, $for_destroy) = tmpdir(); my $bare = PublicInbox::Git->new("$tmpdir/bare.git"); PublicInbox::Import::init_bare($bare->{git_dir}); -is(PublicInbox::WwwListing::fingerprint($bare), undef, - 'empty repo has no fingerprint'); +is($bare->manifest_entry, undef, 'empty repo has no manifest entry'); { my $fi_data = './t/git.fast-import-data'; open my $fh, '<', $fi_data or die "open $fi_data: $!"; @@ -30,7 +28,7 @@ is(PublicInbox::WwwListing::fingerprint($bare), undef, 'fast-import'); } -like(PublicInbox::WwwListing::fingerprint($bare), qr/\A[a-f0-9]{40}\z/, +like($bare->manifest_entry->{fingerprint}, qr/\A[a-f0-9]{40}\z/, 'got fingerprint with non-empty repo'); sub tiny_test { @@ -81,8 +79,7 @@ SKIP: { my $cfgfile = "$tmpdir/config"; my $v2 = "$tmpdir/v2"; my $sock = tcp_server(); - ok($sock, 'sock created'); - my ($host, $port) = ($sock->sockhost, $sock->sockport); + my ($host, $port) = tcp_host_port($sock); my @clone = qw(git clone -q -s --bare); is(xsys(@clone, $bare->{git_dir}, $alt), 0, 'clone shared repo');