[BACK]Return to dudelicious.t CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / t
File: [local] / todotxt / Text-Todo / t / dudelicious.t (download)

Revision 1.2, Wed Apr 28 00:33:05 2010 UTC (14 years, 2 months ago) by andrew
Branch: MAIN
Changes since 1.1: +1 -1 lines 

change to dudelicios.pl

use Test::More tests => 3;

BEGIN {
	eval "use Test::Mojo";
	plan skip_all => "Test::Mojo required for testing dudelicious" if $@;

	use lib 'bin';
	require 'dudelicious.pl';
	Dudelicious->import;
}

my $app = Dudelicious::app;
$app->log->level('error');

my $t = Test::Mojo->new;

# Index page
$t->get_ok('/')->status_is(200)->content_like(qr/Funky/);