diff options
| -rw-r--r-- | TAO/orbsvcs/tests/Notify/performance-tests/Priority/Single_Host/run_test.pl | 21 |
1 files changed, 21 insertions, 0 deletions
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; |