diff options
Diffstat (limited to 'ACE/examples/Reactor/WFMO_Reactor/run_test.pl')
-rwxr-xr-x | ACE/examples/Reactor/WFMO_Reactor/run_test.pl | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/ACE/examples/Reactor/WFMO_Reactor/run_test.pl b/ACE/examples/Reactor/WFMO_Reactor/run_test.pl new file mode 100755 index 00000000000..cc445c64043 --- /dev/null +++ b/ACE/examples/Reactor/WFMO_Reactor/run_test.pl @@ -0,0 +1,68 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +use lib '../../../bin'; +use PerlACE::Run_Test; + +# +# These tests only run on Win32 +# +if ($^O ne "MSWin32") +{ + exit; +} + +$test_timeout = 60; + +@tests = + ( + "Abandoned", + "APC", +# "Console_Input", # This test is interactive + "Directory_Changes", + "Exceptions", + "Handle_Close", + "Multithreading", +# "Network_Events", # This test is interactive + "Prerun_State_Changes", + "Registration", + "Registry_Changes", + "Removals", + "Suspended_Removals", +# "Talker", # This test is interactive + "Timeouts", + "Window_Messages", + ); + +for $test (@tests) +{ + print STDOUT "\n________________________________________\n"; + print STDOUT "\nStarting test \"$test\""; + print STDOUT "\n________________________________________\n\n"; + + $test_process = new PerlACE::Process ($test); + + if (! -x $test_process->Executable ()) { + print STDERR "Error: " . $test_process->Executable () . + " does not exist or is not runnable\n"; + } + else + { + $test_process->Spawn (); + $test_result = $test_process->WaitKill ($test_timeout); + + if ($test_result != 0) + { + print STDERR "\n________________________________________\n"; + print STDERR "\nERROR: \"$test\" returned $test_result"; + print STDERR "\n________________________________________\n"; + } + } + print STDOUT "\n________________________________________\n"; + print STDOUT "\n\"$test\" completed"; + print STDOUT "\n________________________________________\n"; +} |