25 lines
554 B
Perl
25 lines
554 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
# HARNESS-NO-PRELOAD
|
||
|
|
# HARNESS-CAT-LONG
|
||
|
|
# THIS IS A GENERATED YATH RUNNER TEST
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use lib 'lib';
|
||
|
|
BEGIN {
|
||
|
|
use File::Which qw(which);
|
||
|
|
$App::Yath::Script::SCRIPT = which 'yath';
|
||
|
|
}
|
||
|
|
use App::Yath::Util qw/find_yath/;
|
||
|
|
|
||
|
|
system($^X, find_yath(), '-D', 'test', '--default-search' => './', @ARGV);
|
||
|
|
my $exit = $?;
|
||
|
|
|
||
|
|
# This makes sure it works with prove.
|
||
|
|
print "1..1\n";
|
||
|
|
print "not " if $exit;
|
||
|
|
print "ok 1 - Passed tests when run by yath\n";
|
||
|
|
print STDERR "yath exited with $exit" if $exit;
|
||
|
|
|
||
|
|
exit($exit ? 255 : 0);
|