Test the empty path too

Raku · Sep 30, 2014 · be2e100 · be2e100
1 parent afc4d1e
commit be2e100
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S32-io/io-spec-unix.t b/S32-io/io-spec-unix.t
@@ -2,7 +2,7 @@ use v6;
 use Test;
 # L<S32::IO/IO::Spec>
 
-plan 129;
+plan 130;
 
 my $Unix := IO::Spec::Unix;
 
@@ -82,6 +82,9 @@ my $path = %*ENV<PATH>;
 %*ENV<PATH> = '/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:';
 my @want         = </usr/local/sbin /usr/local/bin /usr/sbin /usr/bin /sbin /bin /usr/games .>;
 is_deeply $Unix.path, @want, 'path';
+%*ENV<PATH> = '';
+my @empty;
+is_deeply $Unix.path, @empty, 'no path';
 %*ENV<PATH> = $path;
 
 my %splitpath = (