# Works with 5.8 only!
sub ok_test_wrapper($@) {
  my ($desc,@params) = @_;
  my ($stdout);
  open (OLDOUT, '>&STDOUT') || die "dup() of STDOUT failed: $!";
  close STDOUT or die "close STDOUT: $!";
  open STDOUT, '>', \$stdout or die "redirect STDOUT: $!";
  Test::ok(@params);
  close STDOUT or die "close STDOUT: $!";
  open (STDOUT, '>&OLDOUT') || die "reopen STDOUT: $!";
  close OLDOUT or die "close OLDOUT: $!";
  chomp($stdout);
  print "$stdout - $desc\n";
  return;
}
sub ok($;$$) { ok_test_wrapper("$_[[1]]",$_[[0]]); }