Changeset 45

Timestamp:

01/18/08 14:08:07 (7 months ago)

Author:

abedra

Message:

first attempt to get focused tests working for test/spec examples

Files:

• incubator/.elisp/dot.emacs (modified) (2 diffs)
• incubator/.elisp/ini/ini-testing.el (modified) (3 diffs)

incubator/.elisp/dot.emacs

@@ -3 +3 @@
-(setq shell-file-name "/bin/bash")
-
-Jim Weirich's GNU-Emacs Initialization File
+Relevance GNU-Emacs Initialization File (A Modified Version of Jim Weirich's GNU-Emacs Initialization File)
-
-(setq ini-directory (expand-file-name "~/.elisp/ini"))
@@ -27 +27 @@
-(custom-set-variables
- '(init-face-from-resources nil)
-
-
-
-
-
-
+
+
-(custom-set-faces
- '(default ((t (:size "12pt" :family "Fixed"))) t))

incubator/.elisp/ini/ini-testing.el

@@ -159 +159 @@
-    (next-line)
-    (re-search-backward "^ *def *\\(test_[a-zA-Z_]+\\)")
+    (buffer-substring (match-beginning 1) (match-end 1))))
+
+(defun rel-find-test-spec-method-name ()
+  "Return the name of the current test/spec method."
+  (save-excursion
+    (next-line)
+    (re-search-backward "^ *it \\([a-zA-Z]+\\)")
-    (buffer-substring (match-beginning 1) (match-end 1))))
-
@@ -299 +306 @@
-                file-name "--" (concat "-n" method-name))) ))))
-
+(defun rel-run-test-spec-method (arg)
+  "Run the current focused test method."
+  (interactive "P")
+  (jw-take-down-test-buffer)
+  (let* ((file-name (buffer-file-name))
+         (default-directory (jw-find-project-top file-name)) )
+    (if (not (jw-test-file-name-p file-name))
+        (progn
+          (jw-toggle-buffer)
+          (setq file-name (buffer-file-name)) ))
+    (save-buffer)
+    (setq jw-testing-last-test-buffer (buffer-name))
+    (let ((method-name (rel-find-test-spec-method-name)))
+      (cond ((null default-directory) (message "Cannot find project top"))
+            ((null arg)
+             (jw-prep-test-buffer)
+             (jw-test-start-process
+              jw-ruby-command jw-test-options
+              file-name (concat "-n" method-name))
+             (jw-insert_headers
+              "= Test Method ...\n"
+              "== File: " (file-name-nondirectory file-name) "\n"
+              "== Method: " method-name "\n\n"))
+            (t (jw-prep-test-buffer)
+               (jw-test-start-debugging
+                jw-rdebug-command jw-test-options
+                file-name "--" (concat "-n" method-name))) ))))
+
-;;; -- Toggle Enhancements -------------------------------------------
-
@@ -390 +425 @@
-(global-set-key "\C-Ctf" 'jw-run-test-file)
-(global-set-key "\C-Ctm" 'jw-run-test-method)
+(global-set-key "\C-Ctp" 'rel-run-test-spec-method)
-
-(global-set-key "\C-Ct1" (lambda () (interactive)(setq jw-testing-single-window t)))