t/02-subclass.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use lib 't/lib';
   6 use Test::More tests => 5;
   7
   8 use_ok 'MyApp2';
   9
  10 # testing start mode is properly set on sub class
  11 for(1..2){
  12 my $app2 = MyApp2->new;
  13 my $out = $app2->run;
  14 like $out, qr/sub/, "matched $_";
  15 }
  16
  17 # same for error mode
  18 for(1..2) {
  19     my $app2 = MyApp2->new;
  20     $app2->mode_param( sub{"arrest"} );
  21     my $out = $app2->run;
  22     like $out, qr/oops in MyApp2/;
  23 }
  24