1 files changed, 68 insertions, 0 deletions
diff --git a/trunk/ACE/examples/Reactor/WFMO_Reactor/run_test.pl b/trunk/ACE/examples/Reactor/WFMO_Reactor/run_test.pl
new file mode 100755
index 00000000000..cc445c64043
--- /dev/null
+++ b/trunk/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";
+}