1 2 3 4 5 6 7 8 9 10 11 12 13 14
use strict; use warnings; use utf8; use Test::More; use Devel::CheckBin; if ($^O eq 'linux' || $^O eq 'darwin') { ok can_run("ls"); ok !can_run("unknown_command"); } else { plan 'skip_all' => "Skip: $^O"; } done_testing;