version 1.2, 2010/01/31 04:24:55 |
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: json.t,v 1.1 2010/01/31 03:58:58 andrew Exp $ |
# REVISION: $AFresh1: json.t,v 1.3 2010/02/13 21:45:54 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More tests => 27; |
use Test::More tests => 30; |
|
|
my $class; |
my $class; |
my $format; |
my $format; |
|
|
my $result; |
my $result; |
my $api = new_ok($class); |
my $api = new_ok($class); |
|
|
is( $api->content_type, 'text/plain', 'Check content_type' ); |
is( $api->content_type, 'application/json', 'Check content_type' ); |
|
|
my $files = ['todo.txt']; |
my $files = ['todo.txt']; |
|
|
$result = undef; |
$result = undef; |
ok( ($result) = $api->render_files( $format, $files ), 'render files' ); |
ok( ($result) = $api->render_files( $format, $files ), 'render files' ); |
is_valid_json($result, 'files json is valid'); |
is_valid_json($result, 'files json is valid'); |
is_json( $result, to_json($files), 'files render as expected' ); |
is_json( $result, to_json($files), 'files render as expected' ); |
|
|
|
my $tags = ['uno', 'dos', 'tres']; |
|
$result = undef; |
|
ok( ($result) = $api->render_tags( $format, $tags ), 'render tags' ); |
|
is_valid_json($result, 'tags json is valid'); |
|
is_json( $result, to_json($tags), 'tags render as expected' ); |
|
|
my $list = [ |
my $list = [ |
{ 'text' => '(A) entry 1 @one +uno', |
{ 'text' => '(A) entry 1 @one +uno', |