#!/usr/bin/perl

use POSIX;

$| = 1;
$testno=0;
$badtests=();
$nbad=0;
$lc=0;

while($l = <>)
{
  chomp($l);
  if($l =~ /^TEST(\d+)$/)
  {
    $testno = $1;
  }
  elsif($l =~ /^NUMBER: (.*)$/)
  {
    $number=$1;
    print "NUMBER: $number\n";
  }
  elsif($l =~ /^LAYOUT: (.*)$/)
  {
    $layout=$1;
  }
  elsif($l =~ /^\*.*\*$/)
  {
    @t = split /\*/,$l;
    $w1 = `/home/mk/write/w1 $number $layout`;
    print "$l".$w1."*";
    if($t[2] ne $w1)
    {
      $badtests->{$testno} = 1;
      $nbad++;
      print "\t\t\t!\n";
    }
    else
    {
      print "\n";
    }
  }
  elsif($l =~ /^#029s/)
  {
    print "$l\n";
    print "SPILL ERROR\n";
    exit(-1);
  }
}

print "\nnbad: $nbad\n";
print STDERR "\nnbad: $nbad\n";