1#!/usr/bin/perl -wT
2
3use strict;
4use warnings;
5
6# Before `make install' is performed this script should be runnable with
7# `make test'. After `make install' it should work as `perl Mail-OpenDKIM-Signature.t'
8
9#########################
10
11use Test::More tests => 5;
12BEGIN { use_ok('Mail::OpenDKIM::Signature') };
13
14#########################
15
16my $key = <<'EOF';
17-----BEGIN RSA PRIVATE KEY-----
18MIIEowIBAAKCAQEAu7azXvQR9nTJRRU5SCO0l3gg2CSU6NCjcx8OreFw/U1YDn3j
19/tk/IvqqriWX5xPktPHautWcKE3/fCIUBY0FlxtwdJ3aQw/x83R9uACqbsb1qTrV
20Cefxz/wQ/pTit6f6oE2KuS2+PWo7V4Mj30zMqoCCShUGT1dnxUltzAHbiFaHw5Em
21Ph+dPgJd04qUWQM8jKoiR8QpWqJ5uhlnRXu8XVpi2MVVqVe6sbBPJC26ZfiTHsba
22PWYpPy+kKbX3ag1NGCJYCMqJLXxbE2HykbwwQ3/kUxm7a/5YUXJJ+WcFMwVKnGyX
23gCRxVevR+WIQoTirDpwYYmtekdCp8MBZg+f5UQIDAQABAoIBAHuTIzJ3avvclkOs
24XTFokBLHOpgQPRengnLfF0LRDxkyOa4Qom+7hRz5+DL8/KtbJU0Ziu1EgrDl6DNI
25G/YriGqZ3cZnxLAxZw7muXzQs2KKCF+II4eJ8l8Big6O5VISe6PcaF7QBlVYAgjy
26hEMUxAfa4erzPFwvJllypZ2P+34clmYAj0/9VtWNq9QixJEJ/5vKhlF2Wc84D3Mq
27GMMzolagQWBxBVTu0Odh1HdUx5ny3eHUM5CgB75J2Uds1ranuP6/YXvgV7w6E9UD
28ycCNPZFtaWc2hZl6gv/TpTywJi5D9VRXthRDZg1Fjw6HxMUPmT4JENqms7vUZCbX
29Xo3jc4ECgYEA9guNiOLkxOmpPW2yCPJAqst6fmfd3IIOt9Y1+8sXwU6pxYtpX8tK
30wAJGpZJr9RpjSLDvSQN/XuS3PmLRXzqrlMNTP929n7yLSjnkN9LWJBYE6Pd/U8OT
31TWFggkM0Shhs8ihHc54XxdnhFw9aJbHmOdCSbTCBl0eTI26TJwExtd0CgYEAw074
32tnbURYnRpFnMDlh6+3soIKWUfeVV0X0DlJorLMqaouY+EXV/3e4CD/P2d7DqKoyv
33O/F9dGWp3N5y3rQE65tYd9iiLiYq1c24mSjOzIebMkymn5OH+OK9HOqekDONEvUW
34ma1lzYQK8Rl1mU6dHv4hgTXbEpuyQGzXlCukXAUCgYEA3Aciz+oPqORH+24Qix2Q
35pOwII+hgqCQKY24FoqFRIgZlngn49riGpUSjxsc1EeBCLyxDICkni0W/dOPL1nxS
36Glu+I9v5ClMCwSMaKq254FVsmKVT0SWRod5V/sd4iFZlfvx0QTl8ius39nY9KH55
37ovQZLdn12cIhG8tzfqr7uGUCgYAg77RpsOhjQbak7K/Iy4sR1dcSilncUUyDo31z
38Ffyp9RDW39UfxJznpDec0RuDW8Zhno/+n970PiDDKpBclicuRGhK7bGL7svSenri
39+UrGmyfE98AxsQOBKVuTAM30q3zi8Yn6KI++dMITnqOCUwuUKm8kBx0GqlMJIlHI
40nwN8sQKBgFY0LVuVjPNrQDoyDMEM1F3THlT9Fl7n0WC6Ci0ppX2/tzUKFwtM40yr
41K41ZoAC0yg71WKrmQ8MQcD5vRwltnNxExHAIXTV7py+qCgOvRsIBX92zum0pvSJ/
42/im7Nc8lUx+mSQ/Xs9ZUlv4XOMhcgBf17vnXGg12foEXVoxCenNM
43-----END RSA PRIVATE KEY-----
44EOF
45
46my $signature = new_ok('Mail::OpenDKIM::Signature' => [
47		Algorithm => 'rsa-sha1',
48		Method => 'relaxed',
49		Domain => 'example.com',
50		Selector => 'example',
51		Data => $key,
52	]
53);
54
55my $s = 'v=1; a=rsa-sha1; c=relaxed; d=mailermailer.com; h=from:to:subject; s=mailermailer; bh=TozDQdcuD/NljOIYtF7AyqaxB8s=; b=dMk1p8wJdpHEFOk2pbtSScD3c2spKGkEo917Plae1weNhdrPvZOWvpZYnQL4/S9iQQtXpUByhjU0ObbWE/SgOhpFS216C847c+3RJCESNMJqxSzf65cuGPLffKQg4dboVKS759wC3hDhIMIPmdLABaK4crFAZcBnl+AQP1QpV4H9jUydiU1CqLURpZgeRd3uqhtua/wJTz3t7ad7YfPhQst7pYD7m97xp0PZURjPTYEKTHSJfhfT4zVDXl1+/HeNc3SV+nT9trpIj9ZOfmhotPYGE1PLX5ZyhZmskff7jQDALJxj6z2jICTCKhwLOtuENf9tCYiyYlMcYuij+hTSBg==';
56
57ok($signature->data($s) eq $s);
58
59ok($signature->data() eq $s);
60
61ok($signature->as_string() eq "DKIM-Signature: $s");
62