Commit 5ab0a41b authored by Thanassis Tsiodras's avatar Thanassis Tsiodras

Stress test to verify the two tasks don't mess each other up

parent 0a9ade6b
Pipeline #42 skipped
tar extended-remote localhost:1234
load fputest
c
#!/usr/bin/perl -w
use strict;
sub killtree {
my $pid = shift;
my @children;
open CHL, "ps -o pid= --ppid $pid|";
while(<CHL>) {
chomp;
push @children, $_;
}
close CHL;
foreach my $child (@children) {
killtree($child);
}
kill(15, $pid);
}
while(1) {
my $a = 0;
my $childpid = open PIPE, "sparc-rtems4.8-gdb < cmds 2>&1 |";
while(<PIPE>) {
print;
if (/172003605/) {
$a++;
if ($a == 2) {
last;
}
}
if (/172003608/) {
$a++;
if ($a == 2) {
last;
}
}
}
killtree($childpid);
close PIPE;
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment