#!/bin/bin/perl
$|=1;
print "1..2\n";
open (F, "mpirun -machinefile t/machinefile -np 2 t/13_mpi_sendrecv.pl|")
or die $!;
while (<F>) {
print;
if (/^procok (\d+)/) {
$procok{$1}++;
}
}
for (0..1) {
if ($procok{$_}) {
print "ok " . ($_+1) . "\n";
} else {
print "not ok " . ($_+1) . "\n";
}
}