Examples/test-suite/perl5/run-perl-test.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;
#!/usr/bin/perl -w

use strict;

my $command = shift @ARGV;

my $output = `$^X $command 2>&1`;

die "SWIG Perl test failed: \n\n$output\n"
  if $?;

exit(0);