diff options
| author | Eric Wong <e@80x24.org> | 2021-04-30 09:24:37 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-04-30 19:59:47 +0000 |
| commit | 3af54d4bdba7fb8abce42cce820668d20f348451 (patch) | |
| tree | b56dd12e90d497a568254913dd46fd6a40883f38 /xt | |
| parent | 715c52fd1afe128d235cc1b9bade3db4ed647514 (diff) | |
| download | public-inbox-3af54d4bdba7fb8abce42cce820668d20f348451.tar.gz | |
Since Net::NNTP doesn't support Socket or RawSocket options/accessors like Mail::IMAPClient does; we must perform localized @ISA manipulation and massage Net::NNTP into using IO::Socket::Socks rather than IO::Socket::IP. This is a bit fragile, but Net::Cmd and Net::NNTP rarely change; and I keep an eye on them, anyways.
Diffstat (limited to 'xt')
| -rw-r--r-- | xt/net_nntp_socks.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/xt/net_nntp_socks.t b/xt/net_nntp_socks.t new file mode 100644 index 00000000..4a144fd8 --- /dev/null +++ b/xt/net_nntp_socks.t @@ -0,0 +1,22 @@ +#!perl -w +# Copyright (C) 2021 all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +use v5.12; +use PublicInbox::TestCommon; +use URI; +require_mods 'IO::Socket::Socks'; +use_ok 'PublicInbox::NetNNTPSocks'; +my $url = $ENV{TEST_NNTP_ONION_URL} // + 'nntp://czquwvybam4bgbro.onion/inbox.comp.mail.public-inbox.meta'; +my $uri = URI->new($url); +my $on = PublicInbox::NetNNTPSocks->new_socks( + Port => $uri->port, + Host => $uri->host, + ProxyAddr => '127.0.0.1', # default Tor address + port + ProxyPort => 9050, +) or xbail('err = '.eval('$IO::Socket::Socks::SOCKS_ERROR')); +my ($nr, $min, $max, $grp) = $on->group($uri->group); +ok($nr > 0 && $min > 0 && $min < $max, 'nr, min, max make sense') or + diag explain([$nr, $min, $max, $grp]); +is($grp, $uri->group, 'group matches'); +done_testing; |