always provide BUILD_REQUIRES and TEST_REQUIRES to EUMM

[p5sagit/local-lib.git] / t / shell.t

diff --git a/t/shell.t b/t/shell.t
index 4088216..7ab7ef2 100644 (file)
--- a/t/shell.t
+++ b/t/shell.t
@@ -29,6 +29,9 @@ for my $shell (
     opt => '-f',
   },
   {
+    name => 'fish',
+  },
+  {
     name => 'cmd.exe',
     opt => '/Q /D /C',
     ext => 'bat',
@@ -77,10 +80,12 @@ for my $shell (@shells) {
   local $ENV{PATH} = $root;
   local $ENV{PERL5LIB};
   delete $ENV{PERL5LIB};
+  my $bin_path = local::lib->install_base_bin_path($ll_dir);
+  mkdir $bin_path;
   my $env = call_ll($shell, "$ll");
   is $env->{PERL_LOCAL_LIB_ROOT}, $ll_dir,
     "$shell->{name}: activate root";
-  is $env->{PATH}, local::lib->install_base_bin_path($ll_dir)."$sep$root",
+  like $env->{PATH}, qr/^\Q$bin_path$sep$root\E(?:$|\Q$sep\E)/,
     "$shell->{name}: activate PATH";
   is $env->{PERL5LIB}, local::lib->install_base_perl_path($ll_dir),
     "$shell->{name}: activate PERL5LIB";
@@ -90,7 +95,7 @@ for my $shell (@shells) {
 
   is $env->{PERL_LOCAL_LIB_ROOT}, undef,
     "$shell->{name}: deactivate root";
-  is $env->{PATH}, $root,
+  like $env->{PATH}, qr/^\Q$root\E(?:$|\Q$sep\E)/,
     "$shell->{name}: deactivate PATH";
   is $env->{PERL5LIB}, undef,
     "$shell->{name}: deactivate PERL5LIB";