1#!/usr/bin/perl -wT 2 3use Test::More tests => 7; 4use Error qw(:try); 5BEGIN { use_ok('Mail::OpenDKIM') }; 6 7######################### 8 9GET_PARTIAL: { 10 11 my $o = new_ok('Mail::OpenDKIM'); 12 ok($o->dkim_init()); 13 14 my $d; 15 16 try { 17 $d = $o->dkim_sign({ 18 id => 'MLM', 19 secretkey => '11111', 20 selector => 'example', 21 domain => 'example.com', 22 hdrcanon_alg => DKIM_CANON_RELAXED, 23 bodycanon_alg => DKIM_CANON_RELAXED, 24 sign_alg => DKIM_SIGN_RSASHA1, 25 length => -1, 26 }); 27 28 ok(defined($d)); 29 30 # d is a Mail::OpenDKIM::DKIM object 31 } catch Error with { 32 my $ex = shift; 33 fail($ex->stringify); 34 }; 35 36 isa_ok($d, 'Mail::OpenDKIM::DKIM'); 37 38 ok($d->dkim_getpartial() == 0); 39 40 ok($d->dkim_free() == DKIM_STAT_OK); 41 42 $o->dkim_close(); 43} 44 45