0
@@ -107,14 +107,14 @@
0
    ;; must use princ to take advantage of with-output-to-temp-buffer
0
    (princ "some crap"))
0
 
0
-(save-window-excursion
0
- (elunit "sample-suite")
0
- (assert-in-buffer "some crap" "*elunit*"))
0
+;;; Moved to mode-unit.
0
 
0
-;; report successes with dots
0
+;; (save-window-excursion
0
+;;  (elunit "sample-suite")
0
+;;  (assert-in-buffer "some crap" "*elunit*"))
0
 
0
-(save-window-excursion
0
-  (elunit "meta-suite")
0
-  (assert-in-buffer ".." "*elunit*"))
0
+;; ;; report successes with dots
0
 
0
-(elunit-quiet "meta-suite")
0
\ No newline at end of file
0
+;; (save-window-excursion
0
+;;   (elunit "meta-suite")
0
+;;   (assert-in-buffer ".." "*elunit*"))
0
\ No newline at end of file

0
@@ -1,6 +1,6 @@
0
 ;;; elunit.el --- Emacs Lisp Unit Testing framework
0
 
0
-;; Copyright (C) 2006 - 2007 Phil Hagelberg
0
+;; Copyright (C) 2006 - 2008 Phil Hagelberg
0
 
0
 ;; Author: Phil Hagelberg <technomancy@gmail.com>
0
 ;; URL: http://www.emacswiki.org/cgi-bin/wiki/ElUnit
0
@@ -70,9 +70,8 @@
0
 
0
 ;;; Code:
0
 
0
-(eval-when-compile
0
-  (require 'cl)
0
-  (require 'compile))
0
+(require 'cl)
0
+(require 'compile)
0
 
0
 (defstruct test-suite name children tests setup-hook teardown-hook)
0
 (defstruct test name body file line message problem)
0
@@ -326,38 +325,6 @@ Takes the same ARGS as `error'."
0
            ,@body
0
            (eval ,form))))
0
 
0
-;; Buffer-specific assertions
0
-
0
-(defun assert-in-buffer (target &optional buffer)
0
-  "Fails if TARGET is not a string found in current buffer or BUFFER."
0
-  (save-window-excursion
0
-    (if buffer (switch-to-buffer buffer))
0
-    (goto-char (point-min))
0
-    (unless (search-forward target nil t)
0
-      (fail "%s expected to be found in buffer %s" target buffer))))
0
-
0
-(defun assert-background (target face &optional buffer)
0
-  "Fails if TARGET is not rendered in FACE face.
0
-
0
-May be passed BUFFER, otherwise defaults to current buffer."
0
-  (save-window-excursion
0
-    (if buffer (switch-to-buffer buffer))
0
-    (goto-char (point-min))
0
-    (unless (search-forward target nil t)
0
-      (fail "%s expected to be found in buffer %s" target buffer))
0
-    (unless (equal face (get-text-property (point) 'background))
0
-      (fail "%s expected to be displayed with face %s" target face))))
0
-
0
-(defun assert-overlay (pos)
0
-  "Fails if overlay is not present at POS."
0
-  (unless (overlays-at pos)
0
-    (fail "Expected overlay at position %d" pos)))
0
-
0
-(defun assert-no-overlay (pos)
0
-  "Fails if overlay is present at POS."
0
-  (if (overlays-at pos)
0
-    (fail "Expected no overlay at position %d" pos)))
0
-
0
 (provide 'elunit)
0
 
0
 ;;; elunit.el ends here
0
\ No newline at end of file

0
@@ -14,7 +14,7 @@
0
 
0
 ;;; Todo:
0
 
0
-;; set interpreter-mode-alist with autoload?
0
+;; set auto-mode-alist and interpreter-mode-alist with autoload?
0
 ;; various docstrings labelled below with TODOs
0
 ;; Taken from Ruby SVN revision 16028; need to port recent changes.
0
 

0
@@ -3,7 +3,6 @@
0
 !.bash_profile
0
 !.bashrc
0
 !.devilspie/*
0
-!.emacs
0
 !.emacs.d/*
0
 !.eshell/*
0
 !.feeds.opml