all test cases are now run through a wrapper script which traps
STDOUT/STDERR, and echos the output only on a test failure. This supports the usage of Test::More or Test::Harness without breaking the existing test suite behavior. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8535 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
c413035b7c
commit
a33274543f
2 changed files with 19 additions and 2 deletions
15
Examples/test-suite/perl5/run-perl-test.pl
Executable file
15
Examples/test-suite/perl5/run-perl-test.pl
Executable file
|
|
@ -0,0 +1,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 = `perl $command`;
|
||||
|
||||
die "SWIG Perl test failed: \n\n$output\n"
|
||||
if $?;
|
||||
|
||||
exit(0);
|
||||
Loading…
Add table
Add a link
Reference in a new issue