diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2006-05-08 09:21:31 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2006-05-08 09:21:31 +0000 |
commit | 36e473b4b3839133ddd9807e2a5778fa8406b1da (patch) | |
tree | e186cf34990e33a3cbd78ecc78ca21e3f3426cb1 /TAO/tests/Hello | |
parent | f8238e354b6d53efff2d595162a1a9e4d61ee691 (diff) | |
download | ATCD-36e473b4b3839133ddd9807e2a5778fa8406b1da.tar.gz |
ChangeLogTag: Mon May 8 09:21:12 UTC 2006 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/Hello')
-rwxr-xr-x | TAO/tests/Hello/run_test.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/TAO/tests/Hello/run_test.pl b/TAO/tests/Hello/run_test.pl index cb77b93fe3e..a0fdda9e00f 100755 --- a/TAO/tests/Hello/run_test.pl +++ b/TAO/tests/Hello/run_test.pl @@ -9,15 +9,22 @@ use lib '../../../bin'; use PerlACE::Run_Test; $status = 0; +$debug_level = '0'; + +foreach $i (@ARGV) { + if ($i eq '-debug') { + $debug_level = '10'; + } +} $iorfile = PerlACE::LocalFile ("server.ior"); unlink $iorfile; 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"); |