diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2010-02-23 13:33:55 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2010-02-23 13:33:55 +0000 |
commit | e69131d16189c0f2787b9010032c4d7f311866fe (patch) | |
tree | 33d9452435f3859631d2818588777e292318f88b | |
parent | c42411cff2fdac4673da61ea82116f3b2e7a6f3b (diff) | |
download | ATCD-e69131d16189c0f2787b9010032c4d7f311866fe.tar.gz |
-rwxr-xr-x | CIAO/tests/Bug_3832_Regression/run_test.pl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/CIAO/tests/Bug_3832_Regression/run_test.pl b/CIAO/tests/Bug_3832_Regression/run_test.pl new file mode 100755 index 00000000000..adf21f72a85 --- /dev/null +++ b/CIAO/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 {'CIAO_LOG_LEVEL'} = 10; +$ENV {'CIAO_LOG_FILE'} = 'test.log'; + +$SV = $server->CreateProcess ("../../bin/ciao_componentserver", ""); + +$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; |