ChangeLogTag:Mon Mar 5 11:37:18 2001 Fuzz Master D <brunsch@uci.edu>

3 files changed, 19 insertions, 4 deletions

diff --git a/TAO/ChangeLogs/ChangeLog-02a b/TAO/ChangeLogs/ChangeLog-02a
index 58c5a428131..9e103921ab8 100644
--- a/TAO/ChangeLogs/ChangeLog-02a
+++ b/TAO/ChangeLogs/ChangeLog-02a
@@ -1,3 +1,11 @@
+Mon Mar  5 11:37:18 2001  Fuzz Master D <brunsch@uci.edu>
+
+        * tests/Leader_Followers/run_test_mt.pl: (added)
+        * tests/Param_Test/run_test_dii.pl: 
+
+          Fixed to work on both Windows and Linux (and Solaris
+          should follow Linux).
+
 Mon Mar  5 11:24:05 2001  Carlos O'Ryan  <coryan@uci.edu>
 
         * orbsvcs/Event_Service/Event_Service.cpp:
diff --git a/TAO/tests/Leader_Followers/run_test_mt.pl b/TAO/tests/Leader_Followers/run_test_mt.pl
new file mode 100755
index 00000000000..9e4c112b115
--- /dev/null
+++ b/TAO/tests/Leader_Followers/run_test_mt.pl
@@ -0,0 +1,10 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+system 'perl run_test.pl -m ' . join ' ', @ARGV;
+
+
diff --git a/TAO/tests/Param_Test/run_test_dii.pl b/TAO/tests/Param_Test/run_test_dii.pl
index deff232deb7..b090ff4cd8c 100755
--- a/TAO/tests/Param_Test/run_test_dii.pl
+++ b/TAO/tests/Param_Test/run_test_dii.pl
@@ -5,8 +5,5 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # $Id$
 # -*- perl -*-
 
-@ARGS=('run_test.pl', '-i', 'dii');
-push @ARGS, @ARGV;
-
-system ('perl ', join ' ', @ARGS);
+system 'perl run_test.pl -i dii ' . join ' ', @ARGV;