[elpa] 31/255: a test to protect against unwanted state changes

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 93ba892c4899389721f4d74e2d44c438c4ac41ab
Author: Eric Schulte <address@hidden>
Date:   Thu May 17 09:45:41 2012 -0400

    a test to protect against unwanted state changes
---
 sgf.el |   28 ++++++++++++++++++++++++++++
 1 files changed, 28 insertions(+), 0 deletions(-)

diff --git a/sgf.el b/sgf.el
index 98fd973..e40503f 100644
--- a/sgf.el
+++ b/sgf.el
@@ -371,6 +371,7 @@
                               (length *board*)))
              (clear-labels *board*)
              (apply-moves *board* (sgf-ref *sgf* *index*))
+             (remove-dead *board*)
              (push (cons :pieces (board-to-pieces *board*))
                    (sgf-ref *sgf* *index*))))
     (update-display)))
@@ -404,6 +405,24 @@
       (unless (member (aref board point) '(:b :w))
         (setf (aref board point) nil)))))
 
+(defun any (func seq)
+  (reduce ))
+
+(defun neighbors (board piece)
+  )
+
+(defun alive-p (board piece)
+  (let ((val (aref board piece))
+        (neighbors (neighbors board piece)))
+    (or (any #'null neighbors)
+        (any #'alive-p (remove-if-not (lambda (n) (equal (aref board piece) 
val))
+                                      neighbors)))))
+
+(defun remove-dead (board)
+  (dotimes (n (length board) board)
+    (let ((val (aref board n)))
+      (when (and val )))))
+
 
 ;;; Display mode
 (defvar sgf-mode-map
@@ -540,3 +559,12 @@
       (should *sgf*)
       (should *index*))
     (should (kill-buffer buffer))))
+
+(ert-deftest sgf-independent-points-properties ()
+  (let* ((joseki (car (read-from-file "sgf-files/3-4-joseki.sgf")))
+         (buffer (display-sgf joseki))
+         (points-length (length (assoc :points (sgf-ref joseki '(0))))))
+    (with-current-buffer buffer
+      (right 4)
+      (should (= points-length (length (assoc :points (sgf-ref joseki 
'(0)))))))
+    (should (kill-buffer buffer))))