| Current Path : /var/www/web-klick.de/dsh/10_customer2017/1205__valeo/tests/AEntry2/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/10_customer2017/1205__valeo/tests/AEntry2/TS.pm |
package AEntry::TS;
use strict;
use vars qw(@ISA $PKG);
$PKG = __PACKAGE__;
while ($PKG =~ s/^(.*)\:\:.*$/$1/) { eval("use $PKG"); next if ($@); @ISA = ($PKG); last }
sub result { 1 }
sub remark { "OK" }
sub user { "201111_1130.cg" }
sub requ { [
'VW_AENTRRY_REQ_1127' => 0.01,
'VW_AENTRRY_REQ_834' => 0.05,
] }
sub run {
my $self = shift;
$self->test_start(@_);
$self->{'result'} = 1100;
$self->{'remark'} = "Condition not matched";
$self->{'log'} = "Stack too long for matchng";
$self->message("SIGNAL1=23,SIGNALXYZ=3");
my $stack = "";
my $time0 = time();
while (len($stack) < 100000 and (time() - $time0 < 10)) {
$stack = $stack . join("\n",$self->fetch());
next if ($stack !~ /SIGNALAB(.*?)SIGNALXX=34/s);
$self->{'result'} = 1;
$self->{'remark'} = "OK";
$self->{'log'} = "Condition matched.";
last;
}
$self->test_end();
}
#**********************************************************************
1;