Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #796 from rhansen/vestigial

Browse source 
tests: Delete vestigial code
This commit is contained in:
Richard Hansen 2025-01-08 18:23:41 -05:00 committed by GitHub
commit 9ab038412f
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
t/protocol_dyndns2.pl
View file

@ -1,7 +1,6 @@
use Test::More; use Test::More;
BEGIN { SKIP: { eval { require Test::Warnings; 1; } or skip($@, 1); } } BEGIN { SKIP: { eval { require Test::Warnings; 1; } or skip($@, 1); } }
use MIME::Base64; use MIME::Base64;
use Scalar::Util qw(blessed);
BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); } BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); }
BEGIN { BEGIN {
eval { require ddclient::t::HTTPD; 1; } or plan(skip_all => $@); eval { require ddclient::t::HTTPD; 1; } or plan(skip_all => $@);

11
t/use_web.pl
View file

@ -1,6 +1,5 @@
use Test::More; use Test::More;
BEGIN { SKIP: { eval { require Test::Warnings; 1; } or skip($@, 1); } } BEGIN { SKIP: { eval { require Test::Warnings; 1; } or skip($@, 1); } }
use Scalar::Util qw(blessed);
BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); } BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); }
BEGIN { BEGIN {
eval { require ddclient::t::HTTPD; 1; } or plan(skip_all => $@); eval { require ddclient::t::HTTPD; 1; } or plan(skip_all => $@);
@ -70,16 +69,6 @@ for my $ipv ('4', '6') {
} }
for my $tc (@test_cases) { for my $tc (@test_cases) {
my $subst = sub {
return map({
my $class = blessed($_);
(defined($class) && $class->isa('EndpointPlaceholder')) ? do {
my $uri = ${$_}->clone();
$uri->query_param(tc => $tc->{desc});
$uri;
} : $_;
} @_);
};
local $ddclient::builtinweb{$builtinweb} = $tc->{biw}; local $ddclient::builtinweb{$builtinweb} = $tc->{biw};
$ddclient::builtinweb if 0; $ddclient::builtinweb if 0;
local $ddclient::config{$h} = $tc->{cfg}; local $ddclient::config{$h} = $tc->{cfg};