[elpa] 122/255: system-level test combining gnugo and sgf

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 8792ce45e08e96124fa79f4e53686de2dfe13ee4
Author: Eric Schulte <address@hidden>
Date:   Sun May 27 17:18:48 2012 -0600

    system-level test combining gnugo and sgf
---
 go-tests.el |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/go-tests.el b/go-tests.el
index 83778d5..ced0637 100644
--- a/go-tests.el
+++ b/go-tests.el
@@ -306,4 +306,16 @@
   (with-sgf-display "sgf-files/2-capture.sgf"
     (go-board-next 8) (should (tree-equal (go-stone-counts) '(6 . 0)))))
 
+(ert-deftest go-connect-gnugo-to-sgf ()
+  (let ((*sgf* (make-instance 'sgf))
+        (*gnugo* (make-instance 'gnugo :buffer (gnugo-start-process))))
+    (unwind-protect
+        (progn (setf (go-size *sgf*) (go-size *gnugo*))
+               (should (= (go-size *sgf*) (go-size *gnugo*)))
+               (setf (go-name *sgf*) (go-name *gnugo*))
+               (should (string= (go-name *sgf*) (go-name *gnugo*)))
+               (dotimes (n 5) (setf (go-move *sgf*) (go-move *gnugo*))))
+      (let ((kill-buffer-query-functions nil))
+        (should (kill-buffer (buffer *gnugo*)))))))
+
 (provide 'go-tests)