The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;
use InlineX::CPP2XS qw(cpp2xs);

print "1..2\n";

if(-e 'blib/script/cpp2xs') {print "ok 1\n"}
else {
  warn "No 'blib/script/cpp2xs' found\n";
  print "not ok 1\n";
}

if($^O =~ /MSWin32/i) {
  if(-e 'blib/script/cpp2xs.bat') {print "ok 2\n"}
  else {
    warn "No 'blib/script/cpp2xs.bat' found\n";
    print "not ok 2\n";
  }
}
else {
  warn "Skipping test 2 - not MS Windows\n";
  print "ok 2\n";
}