t/use_cmd.pl \

use Test::More;

BEGIN { SKIP: { eval { require Test::Warnings; 1; } or skip($@, 1); } }

BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); }

local $ddclient::globals{debug} = 1;

local $ddclient::globals{verbose} = 1;

my @test_cases;

for my $ipv ('4', '6') {

my $ip = $ipv eq '4' ? '192.0.2.1' : '2001:db8::1';

for my $use ('use', "usev$ipv") {

my @cmds = ();

push(@cmds, 'cmd') if $use eq 'use' || $ipv eq '6';

push(@cmds, "cmdv$ipv") if $use ne 'use';

for my $cmd (@cmds) {

my $cmdarg = "echo '$ip'";

push(

@test_cases,

{

desc => "$use=$cmd $cmd=\"$cmdarg\"",

cfg => {$use => $cmd, $cmd => $cmdarg},

want => $ip,

},

);

}

}

}

for my $tc (@test_cases) {

local $ddclient::_l = ddclient::pushlogctx($tc->{desc});

my $h = 'test-host';

local $ddclient::config{$h} = $tc->{cfg};

is(ddclient::get_ip(ddclient::strategy_inputs('use', $h)), $tc->{want}, $tc->{desc})

if $tc->{cfg}{use};

is(ddclient::get_ipv4(ddclient::strategy_inputs('usev4', $h)), $tc->{want}, $tc->{desc})

if $tc->{cfg}{usev4};

is(ddclient::get_ipv6(ddclient::strategy_inputs('usev6', $h)), $tc->{want}, $tc->{desc})

if $tc->{cfg}{usev6};

}

done_testing();