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 | 2587da883601ac95a08733edc9124737be1919e5 (patch) | |
tree | e186cf34990e33a3cbd78ecc78ca21e3f3426cb1 | |
parent | 2dfd5cad302fc8c19753814524e4f1c0feeb650b (diff) | |
download | ATCD-2587da883601ac95a08733edc9124737be1919e5.tar.gz |
ChangeLogTag: Mon May 8 09:21:12 UTC 2006 Johnny Willemsen <jwillemsen@remedy.nl>
-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"); |