version 1.8, 2010/05/01 23:38:24 |
version 1.10, 2010/05/05 02:32:12 |
|
|
#!perl |
#!perl |
# $AFresh1: dudelicious.t,v 1.7 2010/04/30 06:18:33 andrew Exp $ |
# $AFresh1: dudelicious.t,v 1.9 2010/05/05 01:24:20 andrew Exp $ |
use Test::More; # tests => 3; |
use Test::More tests => 75; |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
'Check JSON content' ); |
'Check JSON content' ); |
} |
} |
else { |
else { |
$t->content_is( $content, 'Check content' ); |
$t->content_like( qr/\Q$content\E/xms, 'Check content' ); |
} |
} |
} |
} |
} |
} |
|
|
done_testing(); |
#done_testing(); |