# Copyright (C) 2020 all contributors # License: AGPL-3.0+ use strict; use Test::More; use PublicInbox::Config; # see t/nntpd*.t for tests against a live NNTP server use_ok 'PublicInbox::Watch'; my $nntp_url = \&PublicInbox::Watch::nntp_url; is('news://example.com/inbox.foo', $nntp_url->('NEWS://examplE.com/inbox.foo'), 'lowercased'); is('nntps://example.com/inbox.foo', $nntp_url->('nntps://example.com/inbox.foo'), 'nntps:// accepted'); is('nntps://example.com/inbox.foo', $nntp_url->('SNEWS://example.com/inbox.foo'), 'snews => nntps'); done_testing;