eschulte pushed a commit to branch go
in repository elpa.
commit 53f323d55f1980e36d1cebda15212744479332fc
Author: Eric Schulte <eric.schu...@gmx.com>
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"
