diff options
Diffstat (limited to 'TAO/tests/Blocking_Sync_None/run_test.pl')
-rwxr-xr-x | TAO/tests/Blocking_Sync_None/run_test.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/TAO/tests/Blocking_Sync_None/run_test.pl b/TAO/tests/Blocking_Sync_None/run_test.pl index 888b24f244e..18103dc751f 100755 --- a/TAO/tests/Blocking_Sync_None/run_test.pl +++ b/TAO/tests/Blocking_Sync_None/run_test.pl @@ -7,6 +7,13 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; +$debug_level = '0'; + +foreach $i (@ARGV) { + if ($i eq '-debug') { + $debug_level = '10'; + } +} $iorfile = PerlACE::LocalFile ("server.ior"); unlink $iorfile; @@ -14,12 +21,12 @@ unlink $iorfile; $status = 0; if (PerlACE::is_vxworks_test()) { - $SV = new PerlACE::ProcessVX ("server", "-o server.ior"); + $SV = new PerlACE::ProcessVX ("server", "-ORBDebuglevel $debug_level -o server.ior"); } else { - $SV = new PerlACE::Process ("server", "-o $iorfile"); + $SV = new PerlACE::Process ("server", "-ORBDebuglevel $debug_level -o $iorfile"); } -$CL = new PerlACE::Process ("client", " -k file://$iorfile"); +$CL = new PerlACE::Process ("client", "-ORBDebuglevel $debug_level -k file://$iorfile"); $SV->Spawn (); |