use @INC to find helper location rather than FindBin in generated_app test

[catagits/Catalyst-Devel.git] / t / generated_app.t

diff --git a/t/generated_app.t b/t/generated_app.t
index 76a4222..a066e81 100644 (file)
--- a/t/generated_app.t
+++ b/t/generated_app.t
@@ -4,7 +4,7 @@ use lib ();
 use Cwd qw( abs_path );
 use File::Spec::Functions qw( devnull catdir catfile updir rel2abs );
 use File::Temp qw( tempdir );
-use FindBin qw( $Bin );
+use File::Basename qw( dirname );
 use Catalyst::Helper;
 use Test::More;
 use Config;
@@ -12,6 +12,8 @@ use Config;
 eval "use IPC::Run3";
 plan skip_all => 'These tests require IPC::Run3' if $@;
 
+my $helper_lib = abs_path(catdir(dirname($INC{'Catalyst/Helper.pm'}), updir));
+
 my $share_dir = abs_path('share');
 plan skip_all => "No share dir at $share_dir!"
     unless -d $share_dir;
@@ -179,7 +181,7 @@ sub command_ok {
 
 sub runperl {
     my $comment = pop @_;
-    command_ok( [ $^X, '-I', catdir($Bin, '..', 'lib'), @_ ], $comment );
+    command_ok( [ $^X, '-I', $helper_lib, @_ ], $comment );
 }
 
 my @generated_component_tests;