diff options
Diffstat (limited to 'examples/Reactor/WFMO_Reactor/run_test.pl')
| -rwxr-xr-x | examples/Reactor/WFMO_Reactor/run_test.pl | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/examples/Reactor/WFMO_Reactor/run_test.pl b/examples/Reactor/WFMO_Reactor/run_test.pl index e47d878f7c4..3ecbebd4f89 100755 --- a/examples/Reactor/WFMO_Reactor/run_test.pl +++ b/examples/Reactor/WFMO_Reactor/run_test.pl @@ -11,8 +11,7 @@ use PerlACE::TestTarget; # # These tests only run on Win32 # -if ($^O ne "MSWin32") -{ +if ($^O ne "MSWin32") { exit; } @@ -40,8 +39,7 @@ if ($^O ne "MSWin32") my $target = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";; $test_timeout = 60 + $target->ProcessStartWaitInterval(); -for $test (@tests) -{ +for $test (@tests) { print STDOUT "\n________________________________________\n"; print STDOUT "\nStarting test \"$test\""; print STDOUT "\n________________________________________\n\n"; @@ -51,14 +49,11 @@ for $test (@tests) if (! -e $test_process->Executable ()) { print STDERR "Error: " . $test_process->Executable () . " does not exist or is not runnable\n"; - } - else - { + } else { $test_process->Spawn (); $test_result = $test_process->WaitKill ($test_timeout); - if ($test_result != 0) - { + if ($test_result != 0) { print STDERR "\n________________________________________\n"; print STDERR "\nERROR: \"$test\" returned $test_result"; print STDERR "\n________________________________________\n"; |