#!/usr/bin/perl -I../blib/lib

use strict;
use warnings;
use Test::More tests => 6;

use Mail::DKIM::Verifier;
use Mail::DKIM::AuthorDomainPolicy;

my $message = <<'END';
From: Jason Long <jlong@messiah.edu>
Sender: George <george@example.org>
Subject: test message

This message has no signature. 
END
$message =~ s/\n/\015\012/gs;

my $dkim = Mail::DKIM::Verifier->new();
$dkim->PRINT($message);
$dkim->CLOSE;
ok($dkim, "created verifier");

my $policy;
$policy = Mail::DKIM::AuthorDomainPolicy->new();
ok($policy, "new() works");

$policy = Mail::DKIM::AuthorDomainPolicy->parse(
		String => "dkim=all",
		Domain => "messiah.edu",
		);
ok($policy, "parse() works");

my $result;
$result = $policy->apply($dkim);
print "# $result\n";
ok($result eq "neutral", "got expected result");

$policy = Mail::DKIM::AuthorDomainPolicy->parse(
		String => "dkim=discardable",
		Domain => "messiah.edu",
		);
ok($policy, "parse() works");

$result = $policy->apply($dkim);
print "# $result\n";
ok($result eq "reject", "got expected result");