Mailing List Archive

Author: sidney
Date: Thu Nov 23 23:00:36 2023
New Revision: 1914075

URL: http://svn.apache.org/viewvc?rev=1914075&view=rev
Log:
Bug 8197 Skip DNS resolver test on Windows with broken versions of Net::DNS

Modified:
spamassassin/trunk/t/dnsbl_subtests.t

Modified: spamassassin/trunk/t/dnsbl_subtests.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/dnsbl_subtests.t?rev=1914075&r1=1914074&r2=1914075&view=diff
==============================================================================
--- spamassassin/trunk/t/dnsbl_subtests.t (original)
+++ spamassassin/trunk/t/dnsbl_subtests.t Thu Nov 23 23:00:36 2023
@@ -17,7 +17,14 @@ use Errno qw(EADDRINUSE EACCES);
plan skip_all => "Net tests disabled" unless conf_bool('run_net_tests');

use constant HAS_NET_DNS_NAMESERVER => eval { require Net::DNS::Nameserver; };
+use constant HAS_BAD_WINDOWS_NET_DNS => eval {
+ require Net::DNS;
+ $RUNNING_ON_WINDOWS &&
+ (version->parse(Net::DNS->VERSION) >= version->parse(1.38)) &&
+ (version->parse(Net::DNS->VERSION) <= version->parse(1.40));
+};
plan skip_all => "Net::DNS::Nameserver in unavailable on this system" unless (HAS_NET_DNS_NAMESERVER);
+plan skip_all => "Tests don't work on Windows with Net::DNS 1.38 to 1.40" if (HAS_BAD_WINDOWS_NET_DNS);
plan tests => 46;

use Mail::SpamAssassin;