#!/usr/bin/perl -wT
use Test::More tests => 8;
use Error qw(:try);
BEGIN { use_ok('Mail::OpenDKIM') };
#########################
DKIM_SET_MARGIN: {
my $o = new_ok('Mail::OpenDKIM');
ok($o->dkim_init());
my $d;
try {
$d = $o->dkim_sign({
id => 'MLM',
secretkey => '11111',
selector => 'example',
domain => 'example.com',
hdrcanon_alg => DKIM_CANON_RELAXED,
bodycanon_alg => DKIM_CANON_RELAXED,
sign_alg => DKIM_SIGN_RSASHA1,
length => -1,
});
ok(defined($d));
# d is a Mail::OpenDKIM::DKIM object
} catch Error with {
my $ex = shift;
fail($ex->stringify);
};
isa_ok($d, 'Mail::OpenDKIM::DKIM');
ok($d->dkim_set_margin({ margin => -1 }) == DKIM_STAT_INVALID);
ok($d->dkim_set_margin({ margin => 72 }) == DKIM_STAT_OK);
ok($d->dkim_free() == DKIM_STAT_OK);
$o->dkim_close();
}