t/01-live.t

   1 #!perl
   2 # Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
   3
   4 use strict;
   5 use warnings;
   6 use Test::More tests => 4;
   7
   8 use FindBin qw($Bin);
   9 use lib "$Bin/lib";
  10 use Catalyst::Test qw(TestApp);
  11
  12 is( get('/controller'), 'controller', 'got controller ok' );
  13 is( get('/model'), 'model', 'model ok' );
  14 is( get('/view'), 'view', 'view ok' );
  15 is( get('/foo'), 'baz', 'got app at new() time' );