ensuring that test files include org-test in their load path

again thanks to Nick Dokos for pointing this out
This commit is contained in:
Eric Schulte 2010-10-06 09:02:25 -06:00
parent 25c9d74352
commit be42b2fb51
3 changed files with 18 additions and 5 deletions

View File

@ -12,8 +12,12 @@
;;; Code:
(require 'org-test)
(require 'org-test-ob-consts)
(let ((load-path (cons (expand-file-name
".." (file-name-directory
(or load-file-name buffer-file-name)))
load-path)))
(require 'org-test)
(require 'org-test-ob-consts))
;;; Tests

View File

@ -12,8 +12,12 @@
;;; Code:
(require 'org-test)
(require 'org-test-ob-consts)
(let ((load-path (cons (expand-file-name
".." (file-name-directory
(or load-file-name buffer-file-name)))
load-path)))
(require 'org-test)
(require 'org-test-ob-consts))
(ert-deftest test-org-babel-get-src-block-info-language ()
(org-test-at-marker nil org-test-file-ob-anchor

View File

@ -139,7 +139,12 @@ files."
";; Template test file for Org-mode tests\n\n"
" \n"
";;; Code:\n"
"(require 'org-test)\n\n"
"(let ((load-path (cons (expand-file-name\n"
" \"..\" (file-name-directory\n"
" (or load-file-name buffer-file-name)))\n"
" load-path)))\n"
" (require 'org-test)\n"
" (require 'org-test-ob-consts))\n\n"
" \n"
";;; Tests\n"
"(ert-deftest " name "/example-test ()\n"