From 4b4a50ea768f13658b8db776d84433be81b46bf1 Mon Sep 17 00:00:00 2001 From: pradeep Date: Mon, 5 May 2003 19:39:41 +0000 Subject: *** empty log message *** --- .../Priority/Single_Host/run_test.pl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl b/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl index 3bcbd9cc974..df0a9e40cef 100644 --- a/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl +++ b/TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl @@ -7,6 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "../../../../../../../bin"; use PerlACE::Run_Test; +use File::Copy; $experiment_timeout = 60; $startup_timeout = 60; @@ -92,4 +93,24 @@ unlink $notify_ior; $Naming->Kill (); unlink $naming_ior; +if ($#ARGV > -1) + { + $results_directory = $ARGV[0]; + print STDERR "Saving results to $results_directory\n"; + + mkdir $results_directory, 0777; + + @list=glob("*.dat"); + for $file (@list) + { + copy ("$file", "$results_directory/$file"); + } + + @list=glob("*.conf"); + for $file (@list) + { + copy ("$file", "$results_directory/$file"); + } + } + exit $status; -- cgit v1.2.1