# Hack
sub ok_test_wrapper($@) {
  my ($desc,@params) = @_;
  my ($stdout) = "./foo3.$$";
  open (OLDOUT, '>&STDOUT') || die "dup() of STDOUT failed: $!";
  close STDOUT or die "close STDOUT: $!";
  open STDOUT, '>', $stdout or die "redirect STDOUT: $!";
  select STDOUT; $| = 1;

  Test::ok(@params);

  close STDOUT or die "close STDOUT: $!";
  open (STDOUT, '>&OLDOUT') || die "reopen STDOUT: $!";
  close OLDOUT or die "close OLDOUT: $!";
        
  open FH, "<$stdout" or die "reading file failed: $!";
  my $tmp = <FH>;
  close(FH);
  unlink($stdout);
  chomp($tmp);
  print "$tmp - $desc\n";
  return;
}