package misc;
use File::Copy qw/copy/;
use Path::Class qw( tempdir );
require Test::More;
sub import {
*{ caller() . '::sysok' } = \&sysok;
}
sub diag($) { goto \&Test::More::diag; }
sub ok($$) { goto \&Test::More::ok; }
use strict;
sub sysok {
my $cmd = shift;
my $log = tempdir( CLEANUP => 1)->file("log.txt");
ok system($cmd . " > $log 2>&1")==0, "$cmd" or do {
diag "$cmd failed : $? ".(${^CHILD_ERROR_NATIVE} || '');
diag $_ for $log->slurp;
};
}
1;