diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-11-12 03:40:44 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-01-26 14:44:23 -0300 |
| commit | ef41c525819428633a72d34ba9314a9b798df11a (patch) | |
| tree | e679cbb585d546ede21883e94d62aa9b99bff0c5 /t/op | |
| parent | b58c24b0e3ae94feef0d06959eb5ed6cca02285a (diff) | |
| download | perl-ef41c525819428633a72d34ba9314a9b798df11a.tar.gz | |
t/op/magic.t: Skip tests that use env on Android
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/magic.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 9253e91bb8..da3420c837 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -82,8 +82,12 @@ sub env_is { $eqv = "\n" if length($eqv) == 2 and $eqv eq "\000\n"; is $eqv, "$val\n", $desc; } else { - chomp (my @env = grep { s/^$key=// } `env`); - is "@env", $val, $desc; + my @env = `env`; + SKIP: { + skip("env doesn't work on this android", 1) if !@env && $^O =~ /android/; + chomp (my @env = grep { s/^$key=// } @env); + is "@env", $val, $desc; + } } } |