testing/: Merge org-test-ob-consts.el into org-test.el

This commit is contained in:
Bastien Guerry 2013-03-13 11:23:56 +01:00
parent bc7dbcab9f
commit 9f17654913
2 changed files with 9 additions and 26 deletions

View File

@ -1,23 +0,0 @@
;;; org-test-ob-consts.el --- constants for use in code block tests
;; Copyright (c) 2010-2013 Eric Schulte
;; Authors: Eric Schulte
;; Released under the GNU General Public License version 3
;; see: http://www.gnu.org/licenses/gpl-3.0.html
;;;; Comments:
;; Template test file for Org-mode tests
;;; Code:
(defconst org-test-file-ob-anchor
"94839181-184f-4ff4-a72f-94214df6f5ba")
(defconst org-test-link-in-heading-file-ob-anchor
"a8b1d111-eca8-49f0-8930-56d4f0875155")
(provide 'org-test-ob-consts)
;;; org-test-ob-consts.el ends here

View File

@ -30,7 +30,14 @@
;;;; Code:
(require 'org-test-ob-consts)
;;; Ob constants
(defconst org-test-file-ob-anchor
"94839181-184f-4ff4-a72f-94214df6f5ba")
(defconst org-test-link-in-heading-file-ob-anchor
"a8b1d111-eca8-49f0-8930-56d4f0875155")
(let* ((org-test-dir (expand-file-name
(file-name-directory
@ -304,8 +311,7 @@ Consider setting `pp-escape-newlines' to nil manually."
" \"..\" (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"
" (require 'org-test)\n\n"
" \n"
";;; Tests\n"
"(ert-deftest " name "/example-test ()\n"