[elpa] 120/255: passing all tests

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 1f7bb91a359f19517f3cc26ad36d9eb592d29c29
Author: Eric Schulte <address@hidden>
Date:   Sun May 27 17:09:49 2012 -0600

    passing all tests
---
 go-tests.el |   28 +++++++++++++++-------------
 1 files changed, 15 insertions(+), 13 deletions(-)

diff --git a/go-tests.el b/go-tests.el
index b439b1a..83778d5 100644
--- a/go-tests.el
+++ b/go-tests.el
@@ -263,7 +263,9 @@
                      (make-instance 'sgf
                        :self (sgf2el-file-to-el ,file)
                        :index '(0)))))
-       (unwind-protect (with-current-buffer ,buffer ,@body)
+       (unwind-protect (with-current-buffer ,buffer
+                         (setf (index *back-end*) (list 0))
+                         ,@body)
          (should (kill-buffer ,buffer))))))
 (def-edebug-spec parse-many (file body))
 
@@ -277,7 +279,7 @@
     (go-board-next 4)
     (should (not (tree-equal (car *history*) (car (last *history*)))))))
 
-(defun stone-counts ()
+(defun go-stone-counts ()
   (let ((pieces (car *history*)))
     (flet ((count-for (color) (length (remove-if-not
                                       (lambda (piece) (equal color (car 
piece)))
@@ -286,22 +288,22 @@
 
 (ert-deftest go-singl-stone-capture ()
   (with-sgf-display "sgf-files/1-capture.sgf"
-    (go-board-next 3) (should (tree-equal (stone-counts) '(2 . 0)))))
+    (go-board-next 3) (should (tree-equal (go-stone-counts) '(2 . 0)))))
 
 (ert-deftest go-remove-dead-stone-ko ()
   (with-sgf-display "sgf-files/ko.sgf"
-    (should (tree-equal (stone-counts) '(0 . 0))) (go-board-next)
-    (should (tree-equal (stone-counts) '(1 . 0))) (go-board-next)
-    (should (tree-equal (stone-counts) '(1 . 1))) (go-board-next)
-    (should (tree-equal (stone-counts) '(2 . 1))) (go-board-next)
-    (should (tree-equal (stone-counts) '(2 . 2))) (go-board-next)
-    (should (tree-equal (stone-counts) '(3 . 2))) (go-board-next)
-    (should (tree-equal (stone-counts) '(2 . 3))) (go-board-next)
-    (should (tree-equal (stone-counts) '(3 . 2))) (go-board-next)
-    (should (tree-equal (stone-counts) '(2 . 3)))))
+    (should (tree-equal (go-stone-counts) '(0 . 0))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(1 . 0))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(1 . 1))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(2 . 1))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(2 . 2))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(3 . 2))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(2 . 3))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(3 . 2))) (go-board-next)
+    (should (tree-equal (go-stone-counts) '(2 . 3)))))
 
 (ert-deftest go-two-stone-capture ()
   (with-sgf-display "sgf-files/2-capture.sgf"
-    (go-board-next 8) (should (tree-equal (stone-counts) '(6 . 0)))))
+    (go-board-next 8) (should (tree-equal (go-stone-counts) '(6 . 0)))))
 
 (provide 'go-tests)