[elpa] 119/255: test cleanup

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit a1b2857e2d387c1a0331d5e22a46db62e6c09bb2
Author: Eric Schulte <address@hidden>
Date:   Sun May 27 16:54:34 2012 -0600

    test cleanup
---
 back-ends/sgf.el |    2 +-
 go-tests.el      |    9 ++++-----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/back-ends/sgf.el b/back-ends/sgf.el
index 4a0c6e0..9b7cc04 100644
--- a/back-ends/sgf.el
+++ b/back-ends/sgf.el
@@ -58,7 +58,7 @@
 ;;; Class
 (defclass sgf nil
   ((self  :initarg :self  :accessor self  :initform nil)
-   (index :initarg :index :accessor index :initform '(0)))
+   (index :initarg :index :accessor index :initform (list 0)))
   "Class for the SGF back end.")
 
 (defun sgf-from-file (file)
diff --git a/go-tests.el b/go-tests.el
index 8789980..b439b1a 100644
--- a/go-tests.el
+++ b/go-tests.el
@@ -227,7 +227,7 @@
     (with-gnugo
      (should (string= b1 (gtp-command *gnugo* "showboard")))
      (should (string= "" (gtp-command *gnugo* "black A1")))
-     (should (string= "" (go-move   *gnugo* '(:B :pos . (0 . 1)))))
+     (should (string= "" (setf (go-move *gnugo*) '(:B :pos . (0 . 1)))))
      (should (string= b2 (gtp-command *gnugo* "showboard"))))))
 
 
@@ -237,8 +237,7 @@
   `(let (*sgf*)
      (progn
        (setf *sgf* (make-instance 'sgf
-                     :self (sgf2el-file-to-el ,file)
-                     :index '(0)))
+                     :self (sgf2el-file-to-el ,file)))
        ,@body)))
 
 (ert-deftest go-parse-empty-properties ()
@@ -252,8 +251,8 @@
   (with-sgf-from-file "sgf-files/jp-ming-5.sgf"
     (should (tree-equal (index *sgf*) '(0)))
     (should (tree-equal (current *sgf*) (root *sgf*)))
-    (should (string= "Famous Blood Vomiting Game" (sgf<-name *sgf*)))
-    (should (= 19 (sgf<-size *sgf*)))))
+    (should (string= "Famous Blood Vomiting Game" (go-name *sgf*)))
+    (should (= 19 (go-size *sgf*)))))
 
 
 ;;; SGF and board tests