version 1.2, 2010/01/26 05:47:30 |
version 1.3, 2010/02/13 21:46:13 |
|
|
# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org |
# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org |
# COMPANY: Red River Communications |
# COMPANY: Red River Communications |
# CREATED: 01/07/10 19:11 |
# CREATED: 01/07/10 19:11 |
# REVISION: $AFresh1: response.t,v 1.1 2010/01/23 07:04:43 andrew Exp $ |
# REVISION: $AFresh1: response.t,v 1.2 2010/01/26 05:47:30 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More tests => 61; |
use Test::More tests => 77; |
|
|
my $class; |
my $class; |
|
|
|
|
{ text => 'dos', md5 => 'XXX md5 of dos XXX' }, |
{ text => 'dos', md5 => 'XXX md5 of dos XXX' }, |
{ text => 'tre', md5 => 'XXX md5 of tre XXX' }, |
{ text => 'tre', md5 => 'XXX md5 of tre XXX' }, |
], |
], |
|
|
|
tags => [ 'delete', 'dos', 'uno' ], |
entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' }, |
entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' }, |
); |
); |
|
|
|
|
map "MD5 ($_->{text}) = $_->{md5}\n", |
map "MD5 ($_->{text}) = $_->{md5}\n", |
@{ $data{list} } |
@{ $data{list} } |
), |
), |
|
content_type => 'text/plain', |
|
}, |
|
}, |
|
|
|
tags => { |
|
undef => { |
|
result => '/^Unable to handle \[render_tags\] for format \[\]/', |
|
}, |
|
text => { |
|
result => undef, |
|
data_result => ( join q{}, map "$_\n", @{ $data{tags} } ), |
|
content_type => 'text/plain', |
|
}, |
|
md5 => { |
|
result => undef, |
|
result => '/^Unable to handle \[render_tags\] for format \[md5\]/', |
content_type => 'text/plain', |
content_type => 'text/plain', |
}, |
}, |
}, |
}, |