diff options
Diffstat (limited to 'examples/Reactor/WFMO_Reactor/run_test.pl')
-rwxr-xr-x | examples/Reactor/WFMO_Reactor/run_test.pl | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/examples/Reactor/WFMO_Reactor/run_test.pl b/examples/Reactor/WFMO_Reactor/run_test.pl deleted file mode 100755 index c03dd3bc20c..00000000000 --- a/examples/Reactor/WFMO_Reactor/run_test.pl +++ /dev/null @@ -1,62 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -require Process; -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); - $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"; -} |