Permalink
Browse files

Add testing support for Emacs-23.

  • Loading branch information...
1 parent 2c93fae commit 611fde8597527ae12ddd74e3832a84ba66655ebd @rejeep committed Jul 18, 2013
Showing with 2,552 additions and 9 deletions.
  1. +1 −0 Carton
  2. +7 −9 features/support/env.el
  3. +2,544 −0 vendor/ert.el
View
1 Carton
@@ -3,5 +3,6 @@
(package-file "wrap-region.el")
(development
+ (depends-on "f")
(depends-on "ecukes")
(depends-on "espuds"))
View
@@ -1,16 +1,14 @@
-(let* ((current-directory (file-name-directory load-file-name))
- (features-directory (expand-file-name ".." current-directory))
- (project-directory (expand-file-name ".." features-directory)))
- (setq wrap-region-root-path project-directory)
- (setq wrap-region-util-path (expand-file-name "util" project-directory)))
+(require 'f)
-(add-to-list 'load-path wrap-region-root-path)
-(add-to-list 'load-path (expand-file-name "espuds" wrap-region-util-path))
-(add-to-list 'load-path (expand-file-name "emacs-lisp" (expand-file-name "lisp" (expand-file-name "ert" wrap-region-util-path))))
+(let* ((this-directory (f-dirname load-file-name))
+ (wrap-region-root-path (f-parent (f-parent this-directory)))
+ (wrap-region-vendor-path (f-expand "vendor" wrap-region-root-path)))
+ (add-to-list 'load-path wrap-region-root-path)
+ (unless (require 'ert nil 'noerror)
+ (require 'ert (f-expand "ert" wrap-region-vendor-path))))
(require 'wrap-region)
(require 'espuds)
-(require 'ert)
(setq default-except-modes wrap-region-except-modes)
Oops, something went wrong.

0 comments on commit 611fde8

Please sign in to comment.