gnugo-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[gnugo-devel] patch trevor_1_11.1


From: Trevor Morris
Subject: [gnugo-devel] patch trevor_1_11.1
Date: Sun, 14 Oct 2001 21:42:38 -0400

Patch trevor_1_11.1:
 - Adds a few scattered regression comments
 - Updates regress.pl to latest ever evolving version.
 - Adds several test cases and SGF files to trevor.tst & games/trevor/

As usual, don't trust my mailer, but get the patch from:

http://www.public32.com/games/go/trevor_1_11.1.tar.gz

FYI:

Index: regression/ego.tst
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/ego.tst,v
retrieving revision 1.9
diff -u -r1.9 ego.tst
--- regression/ego.tst  2001/10/09 17:56:17     1.9
+++ regression/ego.tst  2001/10/15 01:04:05
@@ -31,6 +31,10 @@
 4 gg_genmove white
 #? [!(G19|H19|K17)]*
 
+
+#CATEGORY=
+#DESCRIPTION=Why is B15 so bad?  -Trevor
+#SEVERITY=0
 # D7 is a good move.
 loadsgf games/ego.sgf 68
 5 gg_genmove white
Index: regression/life.tst
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/life.tst,v
retrieving revision 1.3
diff -u -r1.3 life.tst
--- regression/life.tst 2001/09/06 21:34:20     1.3
+++ regression/life.tst 2001/10/15 01:04:06
@@ -107,8 +107,10 @@
 #? [0 1 J18 J18]
 # Correct answer to 322 should be 0 2 G17 G17, a chimera, but this is
 # temporarily changed to accomodate for a workaround in the code.
+# When run w/out --life, gg gets the "true" correct answer.
+#   So, adding the correct answer as an option:  -Trevor
 322 eval_eye F17
-#? [1 2 G17 G17]
+#? [(0|1) 2 G17 G17]
 323 eval_eye O19
 #? [1 1]
 324 eval_eye K13
Index: regression/regress.pl
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/regress.pl,v
retrieving revision 1.3
diff -u -r1.3 regress.pl
--- regression/regress.pl       2001/10/10 19:22:25     1.3
+++ regression/regress.pl       2001/10/15 01:04:12
@@ -320,13 +320,13 @@
                  print "$num skipped.\n";
                  html_results ($num, "skipped", " ", " ", 0);
              } else {
-               foreach (times) {
-                 print  "$_  ";
-               } print ":TIMES\n";
+               #foreach (times) {
+               #  print  "$_  ";
+               #} print ":TIMES\n";
                print "TST: $negate - $correct_re - $fail - $ignore\n" if
$verbose > 1;
              
                    if (!$ignore) {
-                     my $match_result = $result =~ $correct_re ;
+                     my $match_result = $result =~ /^$correct_re$/ ;
                      if ($negate) {
                        $match_result = ! $match_result;
                      }
@@ -339,8 +339,11 @@
                        } else {
                          if ($verbose) {
                            print "$num passed\n";
-                           html_results  ( $num, "passed", "$bang$correct_re", 
"$result",  1);
                          }
+                         if ($verbose >=2 ) {
+                           print "  Correct: '$bang$correct_re', got 
'$result'\n";
+                         }
+                         html_results  ( $num, "passed", "$bang$correct_re", 
"$result",
 1);
                        }
                      } else {
                        $failures++;
@@ -353,8 +356,8 @@
                          push @failed_links, $num;
                          if ($verbose) {
                            print "$num failed: Correct '$bang$correct_re', got 
'$result'\n";
-                           html_results ($num, "failed", "$bang$correct_re", 
"$result", 1);
                          }
+                         html_results ($num, "failed", "$bang$correct_re",
"$result", 1);
                        }
                      }
                    }
@@ -448,10 +451,11 @@
                print $brd "<TR><TD>correct:</TD><TD>$correct<BR></TD></TR>\n";
                print $brd "<TR><TD>answer:</TD><TD>$incorrect</TD></TR>\n";
                print $brd "<TR><TD>gtp:</TD><TD>$prev_cmd</TD></TR>\n";
-               foreach ("DESCRIPTION", "CATEGORY", "SEVERITY") {
-                 $html_whole_gtp =~ /$_=(.*?)<BR>/)
-                 $_ = defined($1) ? $1 : "";
-                 print $brd "<TR><TD>".lc($_).":</TD><TD>$1</TD>\n";
+               foreach my $listval ("DESCRIPTION", "CATEGORY", "SEVERITY") {
+                 my $astxt;
+                 $html_whole_gtp =~ /$listval=(.*?)<BR>/;
+                 if (defined($1)) {$astxt = $1;} else {$astxt = "";};
+                 print $brd "<TR><TD>".lc($listval).":</TD><TD>$astxt</TD>\n";
                }
                print $brd "</TABLE>\n\n<HR>\n";
                print $brd "<A HREF=\"$num.sgf\">sgf board</A><HR>\n";
@@ -748,20 +752,20 @@
               my $markcolor = "";
               my $status = $stones{$iA.$j};
               if ($status =~ /;known_wrong;/) {
-                print "  known_wrong: $iA$j\n";
+                #print "  known_wrong: $iA$j\n";
                 $markcolor = "magenta";
               }
               if ($status =~ /;known_right;/) {
-                print "  known_right: $iA$j\n";
+                #print "  known_right: $iA$j\n";
                 $markcolor = "green";
               }
               if ($status =~ /;try_right;/) {
-                print "  try_right: $iA$j\n";
+                #print "  try_right: $iA$j\n";
                 $markcolor = "cyan";
               }              
               if ($status =~ /;try_wrong;/) {
-                print "  try_wrong: $iA$j\n";
-                $markcolor = "red";
+                #print "  try_wrong: $iA$j\n";
+                $markcolor = "yellow";
               }
               
               $colorboard_imgsrc = createPngFile($bw, $img_pix_size, "",
$dragonletter, $dragoncolor, $markcolor);
Index: regression/trevor.tst
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/trevor.tst,v
retrieving revision 1.13
diff -u -r1.13 trevor.tst
--- regression/trevor.tst       2001/10/15 00:21:16     1.13
+++ regression/trevor.tst       2001/10/15 01:04:15
@@ -351,3 +351,102 @@
 360 owl_defend G8
 #? [(2|3) J9]*
 
+#CATEGORY=OWL_BUG
+#DESCRIPTION=Can safely connect out!
+#SEVERITY=10
+loadsgf games/trevor/trevor_37.sgf
+370 owl_defend C9
+#? [1 F8]*
+
+
+#CATEGORY=PATTERN_TUNING
+#DESCRIPTION=E3 is certainly better locally
+#SEVERITY=2
+loadsgf games/trevor/trevor_38.sgf 22
+380 gg_genmove white
+#? [!E4]*
+
+#CATEGORY=READING
+#DESCRIPTION=C6 is wrong way to protect the cut.  Loses one point.
+#SEVERITY=3
+loadsgf games/trevor/trevor_38.sgf 39
+381 gg_genmove black
+#? [D7|C7]*
+
+#CATEGORY=KO_THREATS
+#DESCRIPTION=E9 is terrible for leaving Ko threats.
+#SEVERITY=1
+loadsgf games/trevor/trevor_38.sgf 41
+382 gg_genmove black
+#? [E8]*
+
+
+#CATEGORY=PATTERN_TUNING
+#DESCRIPTION=White misses cut.
+#SEVERITY=10
+loadsgf games/trevor/trevor_39.sgf 38
+390 gg_genmove white
+#? [!PASS]*
+
+
+#CATEGORY=OWL_TUNING
+#DESCRIPTION=F8 is tough to find, but not too tough.
+#SEVERITY=3
+loadsgf games/trevor/trevor_40.sgf 1
+400 gg_genmove black
+#? [F8]*
+
+#CATEGORY=
+#DESCRIPTION=White can live!
+#SEVERITY=4
+loadsgf games/trevor/trevor_40a.sgf 2
+401 gg_genmove white
+#? [F8]*
+
+#CATEGORY=
+#DESCRIPTION=White can live!
+#SEVERITY=8
+loadsgf games/trevor/trevor_40.sgf 2
+402 gg_genmove white
+#? [!PASS]*
+
+
+#CATEGORY=PATTERN_TUNING
+#DESCRIPTION=Black should block, not play B4.
+#SEVERITY=5
+loadsgf games/trevor/trevor_41.sgf 29
+410 gg_genmove black
+#? [D5|E5]*
+
+#CATEGORY=BLUNDER
+#DESCRIPTION=A3 leaves behind a double-atari.
+#SEVERITY=10
+loadsgf games/trevor/trevor_41.sgf 35
+411 gg_genmove black
+#? [!A3]*
+
+#CATEGORY=TACTICAL_READING
+#DESCRIPTION=D4 worm is more important to save than B2.
+#SEVERITY=3
+loadsgf games/trevor/trevor_41.sgf 37
+412 gg_genmove black
+#? [C4]*
+
+#CATEGORY=KO
+#DESCRIPTION=Terrible confusion on GnuGo's part here.
+#SEVERITY=10
+#Submitted by:address@hidden (Cai Qiang)
+#Cai said: I made a play between GnuGo 3.0.0 and FunGo with 3 
+#  handicaps. Gnugo played quite well. And in the end it almost 
+#  killed a corner of FunGo, but it played a big blunder:-(. 
+#  Attachment is the SGF file.
+loadsgf games/trevor/trevor_42.sgf 211
+420 gg_genmove black
+#? [G16]*
+
+#CATEGORY=TACTICAL_READING
+#DESCRIPTION=Minus 1 point, attacking very dead stone.
+#SEVERITY=10
+loadsgf games/trevor/trevor_42.sgf 191
+421 gg_genmove black
+#? [!C2]*





reply via email to

[Prev in Thread] Current Thread [Next in Thread]