[clean up results display of regression tests some
John Meacham <john@repetae.net>**20100702213823
 Ignore-this: fb268fe7f370770932b517db90d7fc26
] hunk ./regress/regress.prl 254
-    my $fmt = "%50s %5s %5s %5s %7s %7s\n";
-    rlog sprintf $fmt, "Name", "Compile", "Run", "Out", "CTime", "RTime";
+    my $fmt = "%10s %25s %5s %5s %5s %7s %7s\n";
+    rlog sprintf $fmt, "Category", "Name", "Compile", "Run", "Out", "CTime", "RTime";
+    rlog "--------------------------------------------------------------------";
hunk ./regress/regress.prl 258
-        rlog sprintf $fmt, $r->{name}, statf($r->{compile_status}),statf($r->{run_status}),statf($r->{stdout_diff}), timef($r->{compile_time}), timef($r->{run_time}) ;
+        my $name = $r->{name};
+        $name =~ s/^tests\.//;
+        $name =~ /^([^.]*)\.(.*)$/;
+        rlog sprintf $fmt, $1, $2, statf($r->{compile_status}),statf($r->{run_status}),statf($r->{stdout_diff}), timef($r->{compile_time}), timef($r->{run_time}) ;