t/check_invocation.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use Test::More test => 1;
   6
   7 use lib "$Bin/../lib";
   8
   9 use Catalyst::Helper;
  10
  11 my $helper = Catalyst::Helper->new(
  12     {
  13         '.newfiles' => !$force,
  14         'makefile'  => $makefile,
  15         'scripts'   => $scripts,
  16         'short'     => $short,
  17     }
  18 );
  19
  20 sub mk_compclass {
  21     my ( $self, $helper ) = @_;
  22     my $file = $helper->{file};
  23     $helper->render_file( 'compclass.tt', $file );
  24 }
  25
  26 ok( $helper->mk_app("TestAppForInvocation"), "app invocation still works");