1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
use strict;
use warnings;
use blib;
use Error ':try';
use Net::DNS::Resolver::Programmable;
use Net::DNS::RR;
use Mail::SPF::Server;
use Mail::SPF::Request;
use Test::More tests => 12;
use constant valid_macrostring_text => '%{ir}.%{v}._spf.%{d2}';
use constant valid_macrostring_expanded
=> '1.0.168.192.in-addr._spf.example.com';
my $test_resolver = Net::DNS::Resolver::Programmable->new(
records => {}
);
my $server = Mail::SPF::Server->new(
dns_resolver => $test_resolver
);
my $request = Mail::SPF::Request->new(
identity => 'foo.example.com',
ip_address => '192.168.0.1'
);
#### Class Compilation ####
BEGIN { use_ok('Mail::SPF::MacroString') }
#### Early Context Instantiation ####
{
my $macrostring = eval { Mail::SPF::MacroString->new(
text => valid_macrostring_text,
server => $server,
request => $request
) };
$@ eq '' and isa_ok($macrostring, 'Mail::SPF::MacroString', 'Early-context macro-string object')
or BAIL_OUT("Early-context macro-string instantiation failed: $@");
# Have options been interpreted correctly?
is($macrostring->text, valid_macrostring_text, 'Early-context macro-string text()');
# Expansion:
is($macrostring->expand, valid_macrostring_expanded, 'Early-context macro-string expand()');
is($macrostring, valid_macrostring_expanded, 'Early-context macro-string stringify() (+overloading)');
}
#### Late Context Instantiation ####
{
my $macrostring = eval { Mail::SPF::MacroString->new(
text => '%{ir}.%{v}._spf.%{d2}'
) };
$@ eq '' and isa_ok($macrostring, 'Mail::SPF::MacroString', 'Late-context macro-string object')
or BAIL_OUT("Late-context macro-string instantiation failed: $@");
# Context-less stringify():
is($macrostring, valid_macrostring_text, 'Late-context macro-string context-less stringify() (+overloading)');
# Context-less expand():
eval { $macrostring->expand };
isa_ok($@, 'Mail::SPF::EMacroExpansionCtxRequired', 'Late-context macro-string context-less expand() illegal');
# Expansion with on-the-fly context:
is($macrostring->expand($server, $request),
valid_macrostring_expanded, 'Late-context macro-string expand(context)');
is($macrostring, valid_macrostring_text, 'Late-context macro-string context-less stringify() (+overloading) after expand(context)');
# Expansion with permanent context:
$macrostring->context($server, $request);
is($macrostring->expand, valid_macrostring_expanded, 'Late-context macro-string context-ful expand()');
is($macrostring, valid_macrostring_expanded, 'Late-context macro-string context-ful stringify() (+overloading)');
}
|
