public
Description: Phil Hagelberg's personal dotfiles collection: the product of years of accumulated obsessive minor tweaks. Mostly Emacs Lisp.
Homepage: http://technomancy.us
Clone URL: git://github.com/technomancy/dotfiles.git
added mode-unit
technomancy (author)
Wed Jun 11 18:08:24 -0700 2008
commit  11c1e7edcfd4368f76f6680b0c5f92746f3113c3
tree    4672b63c105d03719511944967c25dc2fbb1797e
parent  574812f140cf1ba1164b45d4a32fbdbf091537cb
...
107
108
109
110
111
112
 
113
114
 
 
 
115
116
117
118
 
119
120
121
 
 
 
122
...
107
108
109
 
 
 
110
111
 
112
113
114
115
 
 
 
116
117
 
118
119
120
121
122
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
...
1
2
3
 
4
5
6
...
70
71
72
73
74
75
 
 
76
77
78
...
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
...
1
2
 
3
4
5
6
...
70
71
72
 
 
 
73
74
75
76
77
...
325
326
327
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
328
329
330
331
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
...
14
15
16
17
 
18
19
20
...
14
15
16
 
17
18
19
20
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
 
...
3
4
5
6
7
8
9
...
3
4
5
 
6
7
8
0
@@ -3,7 +3,6 @@
0
 !.bash_profile
0
 !.bashrc
0
 !.devilspie/*
0
-!.emacs
0
 !.emacs.d/*
0
 !.eshell/*
0
 !.feeds.opml

Comments

    No one has commented yet.