t/unit_load_catalyst_test.t

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