version 1.5, 2010/04/30 02:42:20 |
version 1.7, 2010/04/30 07:18:33 |
|
|
#!perl |
#!perl |
|
# $AFresh1: dudelicious.t,v 1.6 2010/04/30 01:43:14 andrew Exp $ |
use Test::More; # tests => 3; |
use Test::More; # tests => 3; |
|
|
use strict; |
use strict; |
|
|
use File::Copy qw/ cp /; |
use File::Copy qw/ cp /; |
use File::Spec; |
use File::Spec; |
|
|
|
my $have_test_json = 1; |
|
|
BEGIN { |
BEGIN { |
eval "use Test::Mojo"; |
eval "use Test::Mojo"; |
plan skip_all => "Test::Mojo required for testing dudelicious" if $@; |
plan skip_all => "Test::Mojo required for testing dudelicious" if $@; |
|
|
} |
} |
|
|
my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 ); |
my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 ); |
|
|
|
|
SKIP: { |
SKIP: { |
skip "$f does not exist", 3 if !-e $f; |
skip "$f does not exist", 3 if !-e $f; |
|
diag("Get [$f] from [$p]"); |
|
|
diag("Getting [$f] from [$p]"); |
|
open my $fh, '<', $f or die $f . ': ' . $!; |
open my $fh, '<', $f or die $f . ': ' . $!; |
$t->get_ok($p)->status_is(200)->content_is( |
my $content = do { local $/; <$fh> }; |
do { local $/; <$fh> } |
|
); |
|
close $fh; |
close $fh; |
|
|
|
if ( $f =~ /\.json$/xms ) { |
|
$t->get_ok($p)->status_is(200) |
|
->json_content_is( Mojo::JSON->decode($content), |
|
'Check JSON content' ); |
|
} |
|
else { |
|
$t->get_ok($p)->status_is(200) |
|
->content_is( $content, 'Check content' ); |
|
} |
} |
} |
} |
} |
|
|