diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2009-03-16 08:25:58 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2009-03-16 08:25:58 +0000 |
commit | e2f4ae47b73957a27e12a485d9706ed3cbc35086 (patch) | |
tree | 7123b40fc5754669aec2aefb00864f08e7e0b992 | |
parent | 1726483d7c3c6109a364cdfda9d6009be9e14beb (diff) | |
download | ATCD-e2f4ae47b73957a27e12a485d9706ed3cbc35086.tar.gz |
Mon Mar 16 08:26:22 UTC 2009 Johnny Willemsen <jwillemsen@remedy.nl>
* tests/RTCORBA/Client_Propagated/run_test.pl:
Converted to the new test framework
* bin/tao_orb_tests.lst:
Enabled Client_Propagated test for WinCE/FUZZ/Labview
-rw-r--r-- | TAO/ChangeLog | 8 | ||||
-rw-r--r-- | TAO/bin/tao_orb_tests.lst | 2 | ||||
-rwxr-xr-x | TAO/tests/RTCORBA/Client_Propagated/run_test.pl | 59 |
3 files changed, 43 insertions, 26 deletions
diff --git a/TAO/ChangeLog b/TAO/ChangeLog index a2f1be99a65..aa13261ca59 100644 --- a/TAO/ChangeLog +++ b/TAO/ChangeLog @@ -1,3 +1,11 @@ +Mon Mar 16 08:26:22 UTC 2009 Johnny Willemsen <jwillemsen@remedy.nl> + + * tests/RTCORBA/Client_Propagated/run_test.pl: + Converted to the new test framework + + * bin/tao_orb_tests.lst: + Enabled Client_Propagated test for WinCE/FUZZ/Labview + Mon Mar 16 07:56:22 UTC 2009 Johnny Willemsen <jwillemsen@remedy.nl> * orbsvcs/orbsvcs/FaultTolerance/FT_ClientRequest_Interceptor.cpp: diff --git a/TAO/bin/tao_orb_tests.lst b/TAO/bin/tao_orb_tests.lst index 7e47b97d7c7..d1126610d49 100644 --- a/TAO/bin/tao_orb_tests.lst +++ b/TAO/bin/tao_orb_tests.lst @@ -157,7 +157,7 @@ TAO/tests/DIOP/run_test.pl: !ST !NO_DIOP !ACE_FOR_TAO !CORBA_E_MICRO !LabVIEW_RT TAO/tests/DIOP/run_test_ipv6.pl: IPV6 !ST !NO_DIOP !ACE_FOR_TAO !CORBA_E_MICRO !LabVIEW_RT !WinCE !FUZZ TAO/tests/RTCORBA/Activate_Object_Multiple_ORBs/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST TAO/tests/RTCORBA/Banded_Connections/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !LabVIEW_RT !WinCE !FUZZ -TAO/tests/RTCORBA/Client_Propagated/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !LabVIEW_RT !WinCE !FUZZ +TAO/tests/RTCORBA/Client_Propagated/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST TAO/tests/RTCORBA/Client_Protocol/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !IPV6 !ACE_FOR_TAO !LabVIEW_RT !WinCE !FUZZ TAO/tests/RTCORBA/Collocation/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !LabVIEW_RT !WinCE !FUZZ TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl: !MINIMUM !CORBA_E_COMPACT !CORBA_E_MICRO !ST !LabVIEW_RT !WinCE !FUZZ diff --git a/TAO/tests/RTCORBA/Client_Propagated/run_test.pl b/TAO/tests/RTCORBA/Client_Propagated/run_test.pl index a5b2484f4fd..4a045a94b70 100755 --- a/TAO/tests/RTCORBA/Client_Propagated/run_test.pl +++ b/TAO/tests/RTCORBA/Client_Propagated/run_test.pl @@ -6,32 +6,40 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- use lib "$ENV{ACE_ROOT}/bin"; -use PerlACE::Run_Test; +use PerlACE::TestTarget; $status = 0; -$iorfilebase = "test.ior"; -$iorfile = PerlACE::LocalFile ("$iorfilebase"); +$debug_level = '0'; -unlink $iorfile; +foreach $i (@ARGV) { + if ($i eq '-debug') { + $debug_level = '10'; + } +} + +my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n"; +my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n"; + +my $iorbase = "test.ior"; +my $server_iorfile = $server->LocalFile ($iorbase); +my $client_iorfile = $client->LocalFile ($iorbase); +$server->DeleteFile($iorbase); +$client->DeleteFile($iorbase); print STDERR "\n RTCORBA CLIENT_PROPAGATED Priority Unit Test\n\n"; -if (PerlACE::is_vxworks_test()) { - $SV = new PerlACE::ProcessVX ("server", , "-o $iorfilebase"); -} -else { - $SV = new PerlACE::Process ("server", , "-o $iorfile"); -} -if (PerlACE::is_vxworks_rtp_test()) { - $CL = new PerlACE::ProcessVX ("client", "-k file://$iorfilebase"); -} -else { - $CL = new PerlACE::Process ("client", "-k file://$iorfile"); -} +$SV = $server->CreateProcess ("server", "-ORBdebuglevel $debug_level -o $server_iorfile"); +$CL = $client->CreateProcess ("client", "-ORBdebuglevel $debug_level -k file://$client_iorfile"); -$SV->Spawn (); +$server_status = $SV->Spawn (); + +if ($server_status != 0) { + print STDERR "ERROR: server returned $server_status\n"; + exit 1; +} -if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) +if ($server->WaitForFileTimed ($iorbase, + $server->ProcessStartWaitInterval()) == -1) { $server = $SV->TimedWait (1); if ($server == 2) @@ -48,22 +56,23 @@ if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_cr } } -$client = $CL->SpawnWaitKill (60); +$client_status = $CL->SpawnWaitKill (60); -if ($client != 0) +if ($client_status != 0) { - print STDERR "ERROR: client returned $client\n"; + print STDERR "ERROR: client returned $client_status\n"; $status = 1; } -$server = $SV->WaitKill (60); +$server_status = $SV->WaitKill (60); -if ($server != 0) +if ($server_status != 0) { - print STDERR "ERROR: server returned $server\n"; + print STDERR "ERROR: server returned $server_status\n"; $status = 1; } -unlink $iorfile; +$server->DeleteFile($iorbase); +$client->DeleteFile($iorbase); exit $status; |