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
|
#!perl
use Template::Test;
$Template::Test::DEBUG = 1;
my $template_cfg = {
GRAVATAR => {
default => "/avatar.jpg",
rating => "R",
size => 50,
}
};
my $template_obj = Template->new($template_cfg);
test_expect( \*DATA, $template_obj );
__DATA__
-- test --
[% USE Gravatar -%]
loaded
-- expect --
loaded
-- test --
[% USE Gravatar -%]
[% Gravatar( email => 'whatever@wherever.whichever' ) %]
-- expect --
https://gravatar.com/avatar/?gravatar_id=a60fc0828e808b9a6a9d50f1792240c8&rating=R&size=50&default=%2Favatar.jpg
-- test --
[% USE Gravatar( base => "ftp://moo.cow/go/go") -%]
[% Gravatar( email => 'whatever@wherever.whichever' ) %]
-- expect --
ftp://moo.cow/go/go?gravatar_id=a60fc0828e808b9a6a9d50f1792240c8&rating=R&size=50&default=%2Favatar.jpg
-- test --
[% USE Gravatar(default => "/local.png") -%]
[% Gravatar( email => 'whatever@wherever.whichever' ) | html %]
-- expect --
https://gravatar.com/avatar/?gravatar_id=a60fc0828e808b9a6a9d50f1792240c8&rating=R&size=50&default=%2Flocal.png
-- test --
[% USE Gravatar(default => "/local.png", rating => 'X') -%]
[% Gravatar( email => 'whatever@wherever.whichever' ) %]
-- expect --
https://gravatar.com/avatar/?gravatar_id=a60fc0828e808b9a6a9d50f1792240c8&rating=X&size=50&default=%2Flocal.png
-- test --
[% USE Gravatar(default => "/local.png") -%]
[% Gravatar( email => 'whatever@wherever.whichever',
rating => 'R',
size => 80 ) | html %]
-- expect --
https://gravatar.com/avatar/?gravatar_id=a60fc0828e808b9a6a9d50f1792240c8&rating=R&size=80&default=%2Flocal.png
-- test --
[% USE Gravatar(default => "/local.png",
border => 'AAB',
rating => 'PG',
size => 45 ) -%]
[% Gravatar( email => 'whatever@wherever.whichever' ) | html %]
-- expect --
https://gravatar.com/avatar/?gravatar_id=a60fc0828e808b9a6a9d50f1792240c8&rating=PG&size=45&default=%2Flocal.png
|
