[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnugo-devel] trevor_1_15.5
|
From: |
Trevor Morris |
|
Subject: |
[gnugo-devel] trevor_1_15.5 |
|
Date: |
Tue, 27 Nov 2001 11:31:21 -0500 |
http://www.public32.com/games/go/trevor_1_15.5.tar.gz
- gtp_echo_err flushes output.
- regress.plx includes some support for omitting previous breakage.
- new test & minor revisions.
- dsp revision to use -i -o more places for mkpat.
Index: interface/play_gtp.c
===================================================================
RCS file: /cvsroot/gnugo/gnugo/interface/play_gtp.c,v
retrieving revision 1.50
diff -u -b -B -r1.50 play_gtp.c
--- interface/play_gtp.c 2001/11/25 11:23:40 1.50
+++ interface/play_gtp.c 2001/11/27 16:21:24
@@ -2479,6 +2479,8 @@
gtp_echo_err(char *s, int id)
{
fprintf(stderr, "%s", s);
+ fflush(stdout);
+ fflush(stderr);
return gtp_success(id, "%s", s);
}
Index: interface/gtp_examples/twogtp-a
===================================================================
RCS file: /cvsroot/gnugo/gnugo/interface/gtp_examples/twogtp-a,v
retrieving revision 1.7
diff -u -b -B -r1.7 twogtp-a
Index: regression/owl.tst
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/owl.tst,v
retrieving revision 1.23
diff -u -b -B -r1.23 owl.tst
--- regression/owl.tst 2001/11/25 11:23:40 1.23
+++ regression/owl.tst 2001/11/27 16:21:28
@@ -92,9 +92,10 @@
#? [1 F1]
# incident 161
+# tm added C9 option to kill.
loadsgf games/incident161.sgf 38
26 owl_attack B8
-#? [1 (B7|C7|PASS)]
+#? [1 (B7|C7|C9|PASS)]
27 owl_defend B8
#? [0]
Index: regression/trevor.tst
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/trevor.tst,v
retrieving revision 1.26
diff -u -b -B -r1.26 trevor.tst
--- regression/trevor.tst 2001/11/26 14:54:28 1.26
+++ regression/trevor.tst 2001/11/27 16:21:30
@@ -523,6 +523,9 @@
590 attack A18
#? [0]*
+loadsgf games/trevor/trevor_60.sgf 2
+600 owl_attack E3
+#? [1 E2]*
#CATEGORY=OWL_EYES
#DESCRIPTION=Fixed by eye pattern 402
Index: regression/regress.pl
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/regress.pl,v
retrieving revision 1.14
diff -u -b -B -r1.14 regress.pl
--- regression/regress.pl 2001/11/26 14:54:28 1.14
+++ regression/regress.pl 2001/11/27 16:21:34
@@ -267,7 +267,7 @@
print "done waiting\n" if $verbose > 1;
}
-readline(*STDIN);
+#readline(*STDIN);
exit;
Index: regression/regress.plx
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/regress.plx,v
retrieving revision 1.7
diff -u -b -B -r1.7 regress.plx
--- regression/regress.plx 2001/11/22 15:58:04 1.7
+++ regression/regress.plx 2001/11/27 16:21:38
@@ -669,12 +669,24 @@
sub printunexpected{
+ my (%breakage);
+ if (-e 'BREAKAGE.local') {
+ open (BF, 'BREAKAGE.local');
+ while (<BF>) {
+ if (my ($bfile, $bpf) = $_ =~ /^(\w+:\d+)\s+(FAILED|PASSED)/i) {
+ $breakage{lc $bfile} = $bpf;
+ }
+ }
+ close(BF);
+ }
+
+
our $VAR1;
do "html/one.perldata.new" or confess "can't do perldata";
my %h = %{$VAR1->[0]};
- my @fails;
- my @passes;
+ my @fails; my @ufails;
+ my @passes; my @upasses;
print "<HTML><HEAD><TITLE>Unexpected results - GNU Go</TITLE></HEAD>\n";
print "<BODY><H4>Unexpected results</H4>";
@@ -683,19 +695,41 @@
print "<TR><TD><B>Problem</B></TD><TD><B>Status</B></TD>\n";
foreach my $k (sort keys %h) {
my $status = %{$h{$k}}->{status};
+ defined $status or do { warn "missing status for $k"; next;};
if ($status eq 'FAILED') {
- push @fails, $k;
+ unless (defined ($breakage{lc $k}) and $breakage{lc $k}eq 'FAILED') {
+ push @ufails, $k;
+ }
} elsif ($status eq 'PASSED') {
+ unless (defined ($breakage{lc $k}) and $breakage{lc $k} eq 'PASSED') {
+ push @upasses, $k;
+ }
+ } elsif ($status eq 'passed') {
+ if (defined ($breakage{lc $k})) {
push @passes, $k;
}
+ } elsif ($status eq 'failed') {
+ if (defined ($breakage{lc $k})) {
+ push @fails, $k;
+ }
}
+ }
- foreach (@fails) {
+ foreach (@ufails) {
print qq@<TR><TD><A HREF="?$_">$_</A></TD><TD>FAILED</TD>\n@;
}
- foreach (@passes) {
+
+ foreach (@upasses) {
print qq@<TR><TD><A HREF="?$_">$_</A></TD><TD>PASSED</TD>\n@;
}
+ foreach (@fails) {
+ print qq@<TR><TD><A HREF="?$_">$_</A></TD><TD>failed</TD>\n@;
+ }
+
+ foreach (@passes) {
+ print qq@<TR><TD><A HREF="?$_">$_</A></TD><TD>passed</TD>\n@;
+ }
+
print "</TABLE>\n";
print "</body></html>\n";
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [gnugo-devel] trevor_1_15.5,
Trevor Morris <=