version 1.2, 2010/01/26 05:47:30 |
version 1.4, 2010/02/13 22:15:29 |
|
|
# 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.3 2010/02/13 21:46:13 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More tests => 61; |
use Test::More tests => 101; |
|
|
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' }, |
); |
); |
|
|
|
|
'/^Unable to handle \[render_files\] for format \[md5\]/', |
'/^Unable to handle \[render_files\] for format \[md5\]/', |
content_type => 'text/plain', |
content_type => 'text/plain', |
}, |
}, |
|
json => { |
|
result => '[]', |
|
data_result => '["todo.txt"]', |
|
content_type => 'application/json', |
|
}, |
}, |
}, |
|
|
list => { |
list => { |
|
|
), |
), |
content_type => 'text/plain', |
content_type => 'text/plain', |
}, |
}, |
|
json => { |
|
result => '[]', |
|
data_result => '[{"text":"uno","md5":"XXX md5 of uno XXX"},{"text":"dos","md5":"XXX md5 of dos XXX"},{"text":"tre","md5":"XXX md5 of tre XXX"}]', |
|
content_type => 'application/json', |
|
}, |
}, |
}, |
|
|
|
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', |
|
}, |
|
json => { |
|
result => '[]', |
|
data_result => '["delete","dos","uno"]', |
|
content_type => 'application/json', |
|
}, |
|
}, |
|
|
entry => { |
entry => { |
undef => { |
undef => { |
result => '/^Unable to handle \[render_entry\] for format \[\]/', |
result => '/^Unable to handle \[render_entry\] for format \[\]/', |
|
|
$data{entry} |
$data{entry} |
), |
), |
content_type => 'text/plain', |
content_type => 'text/plain', |
|
}, |
|
json => { |
|
result => '[]', |
|
data_result => '{"text":"ety","md5":"XXX md5 of ety XXX"}', |
|
content_type => 'application/json', |
}, |
}, |
}, |
}, |
); |
); |