todotxt/Text-Todo-REST-API/t/formats/json.t - diff

Return to json.t CVS log

Up to [local] / todotxt / Text-Todo-REST-API / t / formats

version 1.3, 2010/02/13 21:45:54

version 1.4, 2010/02/13 22:15:29

Line 7

# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org

# COMPANY: Red River Communications

# CREATED: 01/07/10 19:11

# REVISION: $AFresh1: json.t,v 1.2 2010/01/31 04:24:55 andrew Exp $

# REVISION: $AFresh1: json.t,v 1.3 2010/02/13 21:45:54 andrew Exp $

#===============================================================================

use strict;

use warnings;

use Test::More tests => 27;

use Test::More tests => 30;

my $class;

my $format;

Line 37

is( $api->content_type, 'application/json', 'Check content_type' );

my $files = ['todo.txt'];

$result = undef;

ok( ($result) = $api->render_files( $format, $files ), 'render files' );

is_valid_json($result, 'files json is valid');

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 = [

{ 'text' => '(A) entry 1 @one +uno',