1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# $Id: autosearch.t,v 1.9 2008-07-16 00:41:37 Martin Exp $
use ExtUtils::testlib;
use File::Spec::Functions;
use Test::File;
use Test::More qw(no_plan);
use strict;
my $sProg = $ENV{ADTTMP} ? '/usr/bin/AutoSearch' : catfile('blib', 'script', 'AutoSearch');
my $iWIN32 = ($^O =~ m!win32!i);
file_exists_ok($sProg, "$sProg exists");
SKIP:
{
skip 'Can not check "executable" file flag on Win32', 1 if $iWIN32;
file_executable_ok($sProg, "$sProg is executable");
} # end of SKIP block
pass();
# print STDERR "\n";
diag(`$sProg -V`);
pass();
exit 0;
__END__
|
