[elpa] 61/255: passing first 6 tests

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 53f323d55f1980e36d1cebda15212744479332fc
Author: Eric Schulte <address@hidden>
Date:   Tue May 22 10:41:12 2012 -0400

    passing first 6 tests
---
 sgf-tests.el |   26 +++++++++++++-------------
 1 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/sgf-tests.el b/sgf-tests.el
index 3b43978..e24945e 100644
--- a/sgf-tests.el
+++ b/sgf-tests.el
@@ -117,19 +117,19 @@
     (board-to-string board)
     (should t)))
 
-;; (defmacro with-sgf-file (file &rest body)
-;;   (declare (indent 1))
-;;   `(let* ((sgf    (read-from-file ,file))
-;;           (buffer (display-sgf sgf)))
-;;      (unwind-protect (with-current-buffer buffer ,@body)
-;;        (should (kill-buffer buffer)))))
-;; (def-edebug-spec parse-many (file body))
-
-;; (ert-deftest sgf-display-fresh-sgf-buffer ()
-;;   (with-sgf-file "sgf-files/3-4-joseki.sgf"
-;;     (should local-board)
-;;     (should local-sgf)
-;;     (should local-index)))
+(defmacro with-sgf-file (file &rest body)
+  (declare (indent 1))
+  `(let* ((sgf    (sgf2el-file-to-el ,file))
+          (buffer (display-sgf sgf)))
+     (unwind-protect (with-current-buffer buffer ,@body)
+       (should (kill-buffer buffer)))))
+(def-edebug-spec parse-many (file body))
+
+(ert-deftest sgf-display-fresh-sgf-buffer ()
+  (with-sgf-file "sgf-files/3-4-joseki.sgf"
+    (should *board*)
+    (should *sgf*)
+    (should *index*)))
 
 ;; (ert-deftest sgf-independent-points-properties ()
 ;;   (with-sgf-file "sgf-files/3-4-joseki.sgf"