eschulte pushed a commit to branch go
in repository elpa.
commit 713702a06ff65894fb96f8d0f846bdb6564a0c00
Author: Eric Schulte <[email protected]>
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))))
