The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use Test::More tests => 11;
END { ok($loaded, "Should load and not die") }
$loaded++;
my $av = File::Scan::ClamAV->new();
ok($av, "Init Ok");
cmp_ok($av->host, 'eq', 'localhost', 'Default localhost');
cmp_ok($av->port, 'eq', '/tmp/clamd', 'Default port /tmp/clamd');
$av = File::Scan::ClamAV->new(
port => '2030',
host => 'awesome.host',
);
ok($av, "Init Ok");
cmp_ok($av->host, 'eq', 'awesome.host', 'Non default host');
cmp_ok($av->port, 'eq', '2030', 'Non default port');
my $result = $av->host('too.awesome.host');
cmp_ok($av->host, 'eq', 'too.awesome.host', 'Set host at runtime');
cmp_ok($result, 'eq', 'too.awesome.host', 'Host set result at runtime');
$result = $av->port('/tmp/socket');
cmp_ok($av->port, 'eq', '/tmp/socket', 'Set port at runtime');
cmp_ok($result, 'eq', '/tmp/socket', 'Port set result at runtime');