diff options
Diffstat (limited to 'modules/CIAO/DAnCE/tests/Bug_3832_Regression/run_test.pl')
-rwxr-xr-x | modules/CIAO/DAnCE/tests/Bug_3832_Regression/run_test.pl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/modules/CIAO/DAnCE/tests/Bug_3832_Regression/run_test.pl b/modules/CIAO/DAnCE/tests/Bug_3832_Regression/run_test.pl new file mode 100755 index 00000000000..54da4af1334 --- /dev/null +++ b/modules/CIAO/DAnCE/tests/Bug_3832_Regression/run_test.pl @@ -0,0 +1,64 @@ + +# $Id$ + +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# -*- perl -*- + +use lib "$ENV{ACE_ROOT}/bin"; +use PerlACE::TestTarget; + +$status =0; + +my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n"; + +# Generated code file names +my $TestCaseC_i = "test.log"; + +$server_TestCaseC_i = $server->LocalFile($TestCaseC_i); +$server->DeleteFile($TestCaseC_i); + +$ENV {'DANCE_LOG_LEVEL'} = 10; +$ENV {'DANCE_LOG_FILE'} = 'test.log'; + +$SV = $server->CreateProcess ("../../bin/dance_node_manager", ""); + +$server_status = $SV->Spawn (); + +if ($server_status != 0) { + print STDERR "ERROR: server returned $server_status\n"; + $status = 1; +} + +if ($server->WaitForFileTimed ($TestCaseC_i, + $server->ProcessStartWaitInterval()) == -1) { + print STDERR "ERROR: cannot find file <$server_TestCaseC_i\n"; + $SV->Kill (); $SV->TimedWait (1); + exit 1; +} + +$server_status = $SV->TerminateWaitKill ($server->ProcessStopWaitInterval()); + +# Test for the presence of LM_ERROR +$found = 0 ; +open (I_FILE, "$server_TestCaseC_i") ; +while( <I_FILE> ){ + chomp ; + if( $_ =~ /LM_ERROR/ ){ + $found = 1 ; + last ; + } +} + +if( $found != 1 ){ + print STDERR "ERROR: No logging found\n"; + $status = 1 ; +} else { + print STDERR "Found logging\n"; +} + +$server->DeleteFile($TestCaseC_i); + +exit $status; |