The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -T

use Test::More tests => 2;
use Script::Daemonizer qw/:NOCHDIR :NOUMASK/;

# new() croaks if odd number of elemets was passed
eval q(
    my $daemon = new Script::Daemonizer(
        name => 'Test',
        workdir =>
    );
);

like($@, qr/Odd number/, 'new() must croak() if odd number of elements in config');

# new() croaks if unknown parameter passed
eval q(
    my $daemon = new Script::Daemonizer(
        name => 'Test',
        unknown_param => 'bla',
    );
);

like($@, qr/Invalid argument/, 'new() must croak() if config contains an unknown parameter');