The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Config;

my @binaries = grep { -x $_ } map { "$_/tar" } split(/$Config{path_sep}/, $ENV{PATH});
if(@binaries) {
  push @binaries, 'tar';
  plan tests => ($#binaries + 1) * 2;
} else {
  plan skip_all => "Couldn't find any tar binaries to test";
  exit(0);
}

use Devel::CheckApplicationCapabilities qw(app_is);

foreach(@binaries) {
  my $j = app_is($_, 'TarMinusJ');
  ok($j || 1,
    "$_ ".($j ? 'supports' : 'does not support')." -j");
  my $z = app_is($_, 'TarMinusZ');
  ok($z || 1,
    "$_ ".($z ? 'supports' : 'does not support')." -z");
}