Fri Dec 4 09:13:17 UTC 2009 Denis Budko <denis.budko@remedy.nl>

        * orbsvcs/tests/Notify/Persistent_Filter/run_test.pl:
        * orbsvcs/tests/Notify/Discarding/run_test.pl:
        * orbsvcs/tests/FT_App/run_test_notifier.pl:
        * orbsvcs/tests/Event/Basic/run_test.pl:
        * orbsvcs/tests/Event/Performance/run_test.pl:
        * orbsvcs/tests/Event/UDP/run_test.pl:
        * orbsvcs/tests/Bug_3387_Regression/MessengerServer.cpp:
        * orbsvcs/tests/Bug_3387_Regression/MessengerClient.cpp:
        * orbsvcs/tests/Bug_3387_Regression/run_test.pl:
        * orbsvcs/tests/Bug_2247_Regression/run_test.pl:
        * orbsvcs/tests/EC_MT_Mcast/run_test.pl:
        * performance-tests/Protocols/run_senders.pl:
        * tests/Server_Leaks/run_test.pl:
        * tests/Bug_1551_Regression/server.cpp:
        * tests/Bug_1551_Regression/run_test.pl:
        * tests/IOR_Endpoint_Hostnames/list_interfaces.cpp:
        * tests/Connection_Purging/run_test.pl:
        * tests/Bug_1482_Regression/server.cpp:
        * tests/Bug_1482_Regression/run_test.pl:
        * tests/ForwardOnceUponException/run_test.pl:
        * tests/Reliable_Oneways/run_test.pl:
        * examples/Buffered_Oneways/run_test.pl:
        * examples/ior_corbaloc/run_test.pl:

          Tests are converted to use new test framework
          and added to fuzz build.

3 files changed, 0 insertions, 140 deletions

diff --git a/TAO/orbsvcs/tests/Notify/Lanes/run_test_consumer.pl b/TAO/orbsvcs/tests/Notify/Lanes/run_test_consumer.pl
deleted file mode 100755
index 9122fd101d1..00000000000
--- a/TAO/orbsvcs/tests/Notify/Lanes/run_test_consumer.pl
+++ /dev/null
@@ -1,44 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
-
-$experiment_timeout = 600;
-$startup_timeout = 600;
-$notify_conf = PerlACE::LocalFile ("notify.conf");
-$notify_ior = PerlACE::LocalFile ("notify.ior");
-$naming_ior = PerlACE::LocalFile ("naming.ior");
-$supplier_ior = PerlACE::LocalFile ("supplier.ior");
-$supplier_conf = PerlACE::LocalFile ("supplier.conf");
-$consumer_conf = PerlACE::LocalFile ("consumer.conf");
-$status = 0;
-
-$Consumer = new PerlACE::Process ("../Driver/Notify_Tests_Driver");
-
-#$Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$supplier_ior -ORBSvcConf $consumer_conf";
-$Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$supplier_ior -ORBSvcConf $consumer_conf -ORBDebugLevel 1";
-
-if (PerlACE::waitforfile_timed ($supplier_ior, $startup_timeout) == -1) {
-  print STDERR "ERROR: waiting for the supplier to start\n";
-  $Supplier->Kill ();
-  exit 1;
-}
-
-$Consumer->Arguments ($Consumer_Args);
-$args = $Consumer->Arguments ();
-print STDERR "Running Consumer with arguments: $args\n";
-$status = $Consumer->SpawnWaitKill ($experiment_timeout);
-
-if ($status != 0)
-  {
-    print STDERR "ERROR: Consumer returned $status\n";
-    exit 1;
-  }
-
-
-exit $status;
diff --git a/TAO/orbsvcs/tests/Notify/Lanes/run_test_notify.pl b/TAO/orbsvcs/tests/Notify/Lanes/run_test_notify.pl
deleted file mode 100755
index ce98549f618..00000000000
--- a/TAO/orbsvcs/tests/Notify/Lanes/run_test_notify.pl
+++ /dev/null
@@ -1,50 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
-
-PerlACE::check_privilege_group();
-
-$experiment_timeout = 600;
-$startup_timeout = 600;
-$notify_conf = PerlACE::LocalFile ("notify.conf");
-$notify_ior = PerlACE::LocalFile ("notify.ior");
-$naming_ior = PerlACE::LocalFile ("naming.ior");
-$status = 0;
-
-$Naming = new PerlACE::Process ("../../../Naming_Service/Naming_Service",
-                                "-o $naming_ior");
-
-$Notification = new PerlACE::Process ("../../../Notify_Service/Notify_Service");
-
-#$Notify_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $notify_ior -ORBSvcConf $notify_conf";
-$Notify_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $notify_ior -ORBSvcConf $notify_conf -ORBDebugLevel 1";
-
-unlink $naming_ior;
-$Naming->Spawn ();
-
-if (PerlACE::waitforfile_timed ($naming_ior, $startup_timeout) == -1) {
-  print STDERR "ERROR: waiting for the naming service to start\n";
-  $Naming->Kill ();
-  exit 1;
-}
-
-unlink $notify_ior;
-$Notification->Arguments ($Notify_Args);
-$args = $Notification->Arguments ();
-print STDERR "Running Notification with arguments: $args\n";
-$status = $Notification->SpawnWaitKill ($experiment_timeout);
-
-
-$Notification->Kill ();
-unlink $notify_ior;
-
-$Naming->Kill ();
-unlink $naming_ior;
-
-exit $status;
diff --git a/TAO/orbsvcs/tests/Notify/Lanes/run_test_supplier.pl b/TAO/orbsvcs/tests/Notify/Lanes/run_test_supplier.pl
deleted file mode 100755
index ee07733aa8d..00000000000
--- a/TAO/orbsvcs/tests/Notify/Lanes/run_test_supplier.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-# -*- perl -*-
-
-use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
-
-$experiment_timeout = 600;
-$startup_timeout = 600;
-$notify_ior = PerlACE::LocalFile ("notify.ior");
-$naming_ior = PerlACE::LocalFile ("naming.ior");
-$supplier_ior = PerlACE::LocalFile ("supplier.ior");
-$supplier_conf = PerlACE::LocalFile ("supplier.conf");
-$consumer_conf = PerlACE::LocalFile ("consumer.conf");
-$status = 0;
-
-$Supplier = new PerlACE::Process ("../Driver/Notify_Tests_Driver");
-
-#$Supplier_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $supplier_ior -ORBSvcConf $supplier_conf";
-$Supplier_Args = "-ORBInitRef NameService=file://$naming_ior -IORoutput $supplier_ior -ORBSvcConf $supplier_conf -ORBDebugLevel 1";
-
-if (PerlACE::waitforfile_timed ($notify_ior, $startup_timeout) == -1) {
-  print STDERR "ERROR: waiting for the notify service to start\n";
-  exit 1;
-}
-
-unlink $supplier_ior;
-$Supplier->Arguments ($Supplier_Args);
-$args = $Supplier->Arguments ();
-print STDERR "Running Supplier with arguments: $args\n";
-$status = $Supplier->SpawnWaitKill ($experiment_timeout);
-
-if ($status != 0)
-  {
-    print STDERR "ERROR: Supplier returned $status\n";
-    $Supplier->Kill ();
-    exit 1;
-  }
-
-$Supplier->Kill ();
-unlink $supplier_ior;
-
-exit $status;