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