#!/usr/bin/env perl use strict; use warnings; use Test::More tests => 14; BEGIN{ $ENV{CATALYST_CONFIG} = 't/var/mojomojo.yml'; }; use_ok( 'Catalyst::Test', 'MojoMojo' ); use_ok( 'MojoMojo::Controller::Page' ); ok( request('/.view')->is_success, 'view root' ); ok( request('/.inline_tags')->is_success, 'show inline tags' ); ok( request('/.list')->is_success , 'list nodes'); ok( request('/.recent')->is_success, 'recent nodes' ); ok( request('/.feeds')->is_success,'show feeds' ); ok( request('/.rss_full')->is_success, 'get full content rss' ); ok( request('/.atom')->is_success, 'get atom feed' ); ok( request('/.export')->is_success, 'show export page' ); is( request('/.suggest')->code,'404', 'show a suggest page, do 404' ); ok( request('/.search?query=foo')->is_success, 'show search page' ); ok( request('/.search/inline?query=foo')->is_success, 'show inline search' ); content_like('/', qr'