t/unit_load_catalyst_test.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 plan tests => 3;
   9
  10 use_ok('Catalyst::Test');
  11
  12 eval "get('http://localhost')";
  13 isnt( $@, "", "get returns an error message with no app specified");
  14
  15 eval "request('http://localhost')";
  16 isnt( $@, "", "request returns an error message with no app specified");