]> Sergey Matveev's repositories - public-inbox.git/blobdiff - xt/nntpd-validate.t
No ext_urls
[public-inbox.git] / xt / nntpd-validate.t
index efe97c027a43ba7c076698cbbd15d154f1ce3d93..a6f3980eca861356367ffc60d3aeeecf967cc879 100644 (file)
@@ -1,4 +1,4 @@
-# Copyright (C) 2019-2021 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # Integration test to validate compression.
@@ -9,6 +9,7 @@ use Symbol qw(gensym);
 use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
 use POSIX qw(_exit);
 use PublicInbox::TestCommon;
+use PublicInbox::SHA;
 my $inbox_dir = $ENV{GIANT_INBOX_DIR};
 plan skip_all => "GIANT_INBOX_DIR not defined for $0" unless $inbox_dir;
 my $mid = $ENV{TEST_MID};
@@ -55,7 +56,7 @@ sub do_get_all {
        my ($methods) = @_;
        my $desc = join(',', @$methods);
        my $t0 = clock_gettime(CLOCK_MONOTONIC);
-       my $dig = Digest::SHA->new(1);
+       my $dig = PublicInbox::SHA->new(1);
        my $digfh = gensym;
        my $tmpfh;
        if ($File::Temp::KEEP_ALL) {
@@ -169,8 +170,7 @@ sub make_local_server {
                open my $fh, '>', $_ or die "truncate: $!";
        }
        my $sock = tcp_server();
-       ok($sock, 'sock created');
-       $host_port = $sock->sockhost . ':' . $sock->sockport;
+       $host_port = tcp_host_port($sock);
 
        # not using multiple workers, here, since we want to increase
        # the chance of tripping concurrency bugs within PublicInbox/NNTP*.pm