.emacs.d/Rakefile .emacs.d/mode-unit.el .emacs.d/ruby_mode_sample.rb @@ -107,14 +107,14 @@ ;; must use princ to take advantage of with-output-to-temp-buffer (princ "some crap")) -(save-window-excursion - (elunit "sample-suite") - (assert-in-buffer "some crap" "*elunit*")) +;;; Moved to mode-unit. -;; report successes with dots +;; (save-window-excursion +;; (elunit "sample-suite") +;; (assert-in-buffer "some crap" "*elunit*")) -(save-window-excursion - (elunit "meta-suite") - (assert-in-buffer ".." "*elunit*")) +;; ;; report successes with dots -(elunit-quiet "meta-suite") \ No newline at end of file +;; (save-window-excursion +;; (elunit "meta-suite") +;; (assert-in-buffer ".." "*elunit*")) \ No newline at end of file .emacs.d/elunit-test.el @@ -1,6 +1,6 @@ ;;; elunit.el --- Emacs Lisp Unit Testing framework -;; Copyright (C) 2006 - 2007 Phil Hagelberg +;; Copyright (C) 2006 - 2008 Phil Hagelberg ;; Author: Phil Hagelberg <technomancy@gmail.com> ;; URL: http://www.emacswiki.org/cgi-bin/wiki/ElUnit @@ -70,9 +70,8 @@ ;;; Code: -(eval-when-compile - (require 'cl) - (require 'compile)) +(require 'cl) +(require 'compile) (defstruct test-suite name children tests setup-hook teardown-hook) (defstruct test name body file line message problem) @@ -326,38 +325,6 @@ Takes the same ARGS as `error'." ,@body (eval ,form)))) -;; Buffer-specific assertions - -(defun assert-in-buffer (target &optional buffer) - "Fails if TARGET is not a string found in current buffer or BUFFER." - (save-window-excursion - (if buffer (switch-to-buffer buffer)) - (goto-char (point-min)) - (unless (search-forward target nil t) - (fail "%s expected to be found in buffer %s" target buffer)))) - -(defun assert-background (target face &optional buffer) - "Fails if TARGET is not rendered in FACE face. - -May be passed BUFFER, otherwise defaults to current buffer." - (save-window-excursion - (if buffer (switch-to-buffer buffer)) - (goto-char (point-min)) - (unless (search-forward target nil t) - (fail "%s expected to be found in buffer %s" target buffer)) - (unless (equal face (get-text-property (point) 'background)) - (fail "%s expected to be displayed with face %s" target face)))) - -(defun assert-overlay (pos) - "Fails if overlay is not present at POS." - (unless (overlays-at pos) - (fail "Expected overlay at position %d" pos))) - -(defun assert-no-overlay (pos) - "Fails if overlay is present at POS." - (if (overlays-at pos) - (fail "Expected no overlay at position %d" pos))) - (provide 'elunit) ;;; elunit.el ends here \ No newline at end of file .emacs.d/elunit.el @@ -14,7 +14,7 @@ ;;; Todo: -;; set interpreter-mode-alist with autoload? +;; set auto-mode-alist and interpreter-mode-alist with autoload? ;; various docstrings labelled below with TODOs ;; Taken from Ruby SVN revision 16028; need to port recent changes. .emacs.d/ruby-mode.el @@ -3,7 +3,6 @@ !.bash_profile !.bashrc !.devilspie/* -!.emacs !.emacs.d/* !.eshell/* !.feeds.opml .gitignore 574812f140cf1ba1164b45d4a32fbdbf091537cb Phil Hagelberg technomancy@gmail.com http://github.com/technomancy/dotfiles/commit/11c1e7edcfd4368f76f6680b0c5f92746f3113c3 11c1e7edcfd4368f76f6680b0c5f92746f3113c3 2008-06-11T18:08:24-07:00 2008-06-11T18:08:24-07:00 added mode-unit 4672b63c105d03719511944967c25dc2fbb1797e Phil Hagelberg technomancy@gmail.com