[elpa] 48/255: all tests are passing

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 713702a06ff65894fb96f8d0f846bdb6564a0c00
Author: Eric Schulte <address@hidden>
Date:   Sat May 19 19:34:19 2012 -0400

    all tests are passing
---
 sgf.el |   15 ++++++++++++---
 1 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/sgf.el b/sgf.el
index 72612af..0cdb9b0 100644
--- a/sgf.el
+++ b/sgf.el
@@ -541,7 +541,16 @@
          (tree (parse-trees str)))
     (should (= 2  (length tree)))
     (should (= 9 (length (car (first tree)))))
-    (should (= 2 (length (second tree))))))
+    (should (= 2 (length (car (second tree)))))))
+
+(setf *game* (parse-trees "(;GM[1]FF[4]
+               SZ[19]
+               GN[GNU Go 3.7.11 load and print]
+               DT[2008-12-14]
+               KM[0.0]HA[0]RU[Japanese]AP[GNU Go:3.7.11]
+               (;AW[ja][oa][pa][db][eb] ;AB[fa][ha][ia][qa][cb]))"))
+
+(length (car (second *game*)))
 
 (ert-deftest sgf-parse-file-test ()
   (let ((game (car (read-from-file "sgf-files/jp-ming-5.sgf"))))
@@ -666,5 +675,5 @@
 
 (ert-deftest sgf-paren-matching ()
   (let ((str "(a (b) [c \\] ) ] d)"))
-    (should (= (closing-paren str) (1- (length str))))
-    (should (= (closing-paren str 3) 5))))
+    (should (= (closing-paren str) (length str)))
+    (should (= (closing-paren str 3) 6))))