2016-11-02 07:58:53 +00:00
|
|
|
|
;;; test-ox-publish.el --- Tests for "ox-publish.el" -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
|
|
;; Copyright (C) 2016 Nicolas Goaziou
|
|
|
|
|
|
|
|
|
|
;; Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
|
|
|
|
|
|
|
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
;; (at your option) any later version.
|
|
|
|
|
|
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2016-12-29 20:48:02 +00:00
|
|
|
|
|
|
|
|
|
;;; Helper functions
|
|
|
|
|
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(defun org-test-publish (properties handler)
|
|
|
|
|
"Publish a project defined by PROPERTIES.
|
|
|
|
|
Call HANDLER with the publishing directory as its sole argument.
|
|
|
|
|
Unless set otherwise in PROPERTIES, `:base-directory' is set to
|
|
|
|
|
\"examples/pub/\" sub-directory from test directory and
|
|
|
|
|
`:publishing-function' is set to `org-publish-attachment'."
|
2016-12-29 20:48:02 +00:00
|
|
|
|
(declare (indent 1))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(let* ((org-publish-use-timestamps-flag nil)
|
|
|
|
|
(org-publish-cache nil)
|
|
|
|
|
(base-dir (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(pub-dir (make-temp-file "org-test" t))
|
|
|
|
|
(org-publish-timestamp-directory
|
|
|
|
|
(expand-file-name ".org-timestamps/" pub-dir))
|
|
|
|
|
(project
|
|
|
|
|
`("test" ,@(org-combine-plists
|
|
|
|
|
`(:base-directory
|
|
|
|
|
,base-dir
|
|
|
|
|
:publishing-function org-publish-attachment)
|
|
|
|
|
properties
|
|
|
|
|
`(:publishing-directory ,pub-dir)))))
|
|
|
|
|
(unwind-protect
|
|
|
|
|
(progn
|
|
|
|
|
(org-publish-projects (list project))
|
|
|
|
|
(funcall handler pub-dir))
|
|
|
|
|
;; Clear published data.
|
|
|
|
|
(delete-directory pub-dir t)
|
|
|
|
|
;; Delete auto-generated site-map file, if applicable.
|
|
|
|
|
(let ((site-map (and (plist-get properties :auto-sitemap)
|
|
|
|
|
(expand-file-name
|
|
|
|
|
(or (plist-get properties :sitemap-filename)
|
|
|
|
|
"sitemap.org")
|
|
|
|
|
base-dir))))
|
|
|
|
|
(when (and site-map (file-exists-p site-map))
|
|
|
|
|
(delete-file site-map))))))
|
|
|
|
|
|
2016-12-29 20:48:02 +00:00
|
|
|
|
|
|
|
|
|
;;; Mandatory properties
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-publish/base-extension ()
|
|
|
|
|
"Test `:base-extension' specifications"
|
|
|
|
|
;; Regular tests.
|
|
|
|
|
(should
|
|
|
|
|
(equal '("a.org" "b.org")
|
|
|
|
|
(org-test-publish '(:base-extension "org")
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(remove ".org-timestamps"
|
|
|
|
|
(cl-remove-if #'file-directory-p
|
|
|
|
|
(directory-files dir)))))))
|
|
|
|
|
(should
|
|
|
|
|
(equal '("file.txt")
|
|
|
|
|
(org-test-publish '(:base-extension "txt")
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(remove ".org-timestamps"
|
|
|
|
|
(cl-remove-if #'file-directory-p
|
|
|
|
|
(directory-files dir)))))))
|
|
|
|
|
;; A nil value is equivalent to ".org".
|
|
|
|
|
(should
|
|
|
|
|
(equal '("a.org" "b.org")
|
|
|
|
|
(org-test-publish '(:base-extension nil)
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(remove ".org-timestamps"
|
|
|
|
|
(cl-remove-if #'file-directory-p
|
|
|
|
|
(directory-files dir)))))))
|
|
|
|
|
;; Symbol `any' includes all files, even those without extension.
|
|
|
|
|
(should
|
|
|
|
|
(equal '("a.org" "b.org" "file.txt" "noextension")
|
|
|
|
|
(org-test-publish '(:base-extension any)
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(remove ".org-timestamps"
|
|
|
|
|
(cl-remove-if #'file-directory-p
|
|
|
|
|
(directory-files dir))))))))
|
|
|
|
|
|
2016-11-02 07:58:53 +00:00
|
|
|
|
|
|
|
|
|
;;; Site-map
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-publish/sitemap ()
|
|
|
|
|
"Test site-map specifications."
|
|
|
|
|
;; Site-map creation is controlled with `:auto-sitemap'. It
|
|
|
|
|
;; defaults to "sitemap.org".
|
|
|
|
|
(should
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t)
|
|
|
|
|
(lambda (dir) (file-exists-p (expand-file-name "sitemap.org" dir)))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should-not
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap nil)
|
|
|
|
|
(lambda (dir) (file-exists-p (expand-file-name "sitemap.org" dir)))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; Site-map file name is controlled with `:sitemap-filename'.
|
|
|
|
|
(should
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t :sitemap-filename "mysitemap.org")
|
|
|
|
|
(lambda (dir) (file-exists-p (expand-file-name "mysitemap.org" dir)))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; Site-map title is controlled with `:sitemap-title'. It defaults
|
|
|
|
|
;; to the project name.
|
|
|
|
|
(should
|
|
|
|
|
(equal "#+TITLE: Sitemap for project test"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t)
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (point) (line-end-position)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal "#+TITLE: My title"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t :sitemap-title "My title")
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (point) (line-end-position)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; Allowed site-map styles: `list' and `tree'.
|
|
|
|
|
(should
|
|
|
|
|
(equal "
|
|
|
|
|
- [[file:a.org][A]]
|
|
|
|
|
- [[file:b.org][b]]
|
|
|
|
|
- [[file:sub/c.org][C]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:sitemap-sort-folders ignore
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "b.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal "
|
|
|
|
|
- [[file:a.org][A]]
|
|
|
|
|
- [[file:b.org][b]]
|
|
|
|
|
- sub
|
|
|
|
|
- [[file:sub/c.org][C]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:sitemap-style tree
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "b.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; When style is `list', `:sitemap-sort-folders' controls the order
|
|
|
|
|
;; of appearance of directories among published files.
|
|
|
|
|
(should
|
|
|
|
|
(equal
|
|
|
|
|
"
|
|
|
|
|
- sub/
|
|
|
|
|
- [[file:a.org][A]]
|
|
|
|
|
- [[file:sub/c.org][C]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders first
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal
|
|
|
|
|
"
|
|
|
|
|
- [[file:a.org][A]]
|
|
|
|
|
- [[file:sub/c.org][C]]
|
|
|
|
|
- sub/"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders last
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; When style is `list', `:sitemap-sort-folders' can be used to
|
|
|
|
|
;; toggle visibility of directories in the site-map.
|
|
|
|
|
(should
|
|
|
|
|
(let ((case-fold-search t))
|
|
|
|
|
(string-match-p
|
|
|
|
|
"- sub/$"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders t
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max))))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should-not
|
|
|
|
|
(string-match-p
|
|
|
|
|
"- sub/$"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders ignore
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; Using `:sitemap-sort-files', files can be sorted alphabetically
|
|
|
|
|
;; (according to their title, or file name when there is none),
|
|
|
|
|
;; chronologically a anti-chronologically.
|
|
|
|
|
(should
|
|
|
|
|
(equal
|
|
|
|
|
"
|
|
|
|
|
- [[file:a.org][A]]
|
|
|
|
|
- [[file:b.org][b]]
|
|
|
|
|
- [[file:sub/c.org][C]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders ignore
|
|
|
|
|
:sitemap-sort-files alphabetically
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "b.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal
|
|
|
|
|
"
|
|
|
|
|
- [[file:b.org][b]]
|
|
|
|
|
- [[file:sub/c.org][C]]
|
|
|
|
|
- [[file:a.org][A]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders ignore
|
|
|
|
|
:sitemap-sort-files chronologically
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "b.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal
|
|
|
|
|
"
|
|
|
|
|
- [[file:a.org][A]]
|
|
|
|
|
- [[file:sub/c.org][C]]
|
|
|
|
|
- [[file:b.org][b]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:recursive t
|
|
|
|
|
:sitemap-style list
|
|
|
|
|
:sitemap-sort-folders ignore
|
|
|
|
|
:sitemap-sort-files anti-chronologically
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org" "b.org" "sub/c.org"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
;; `:sitemap-format-entry' formats entries in the site-map whereas
|
|
|
|
|
;; `:sitemap-function' controls the full site-map.
|
|
|
|
|
(should
|
|
|
|
|
(equal "
|
|
|
|
|
- a.org"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org")
|
|
|
|
|
:sitemap-format-entry
|
|
|
|
|
(lambda (f _s _p) f))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-substring (line-beginning-position 2) (point-max)))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal "Custom!"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org")
|
|
|
|
|
:sitemap-function (lambda (_title _f) "Custom!"))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-string))))))
|
2016-11-02 07:58:53 +00:00
|
|
|
|
(should
|
|
|
|
|
(equal "[[file:a.org][A]]"
|
|
|
|
|
(org-test-publish
|
2016-12-29 20:48:02 +00:00
|
|
|
|
'(:auto-sitemap t
|
|
|
|
|
:exclude "."
|
|
|
|
|
:include ("a.org")
|
|
|
|
|
:sitemap-function
|
|
|
|
|
(lambda (_title f) (org-list-to-generic f nil)))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents (expand-file-name "sitemap.org" dir))
|
|
|
|
|
(buffer-string)))))))
|
|
|
|
|
|
2017-09-09 22:16:12 +00:00
|
|
|
|
|
|
|
|
|
;;; Cross references
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-publish/resolve-external-link ()
|
|
|
|
|
"Test `org-publish-resolve-external-link' specifications."
|
|
|
|
|
;; Function should preserve internal reference when used between
|
|
|
|
|
;; published files.
|
|
|
|
|
(should
|
|
|
|
|
(apply
|
|
|
|
|
#'equal
|
|
|
|
|
(let* ((ids nil)
|
|
|
|
|
(backend
|
|
|
|
|
(org-export-create-backend
|
|
|
|
|
:transcoders
|
|
|
|
|
'((headline . (lambda (h c i)
|
|
|
|
|
(concat (org-export-get-reference h i) " " c)))
|
|
|
|
|
(paragraph . (lambda (p c i) c))
|
|
|
|
|
(section . (lambda (s c i) c))
|
|
|
|
|
(link . (lambda (l c i)
|
|
|
|
|
(let ((option (org-element-property :search-option l))
|
|
|
|
|
(path (org-element-property :path l)))
|
|
|
|
|
(and option
|
|
|
|
|
(org-publish-resolve-external-link
|
|
|
|
|
option path))))))))
|
|
|
|
|
(publish
|
|
|
|
|
(lambda (plist filename pub-dir)
|
|
|
|
|
(org-publish-org-to backend filename ".test" plist pub-dir))))
|
|
|
|
|
(org-test-publish
|
|
|
|
|
(list :publishing-function (list publish))
|
|
|
|
|
(lambda (dir)
|
|
|
|
|
(cl-subseq
|
|
|
|
|
(split-string
|
|
|
|
|
(mapconcat (lambda (f) (org-file-contents (expand-file-name f dir)))
|
|
|
|
|
(directory-files dir nil "\\.test\\'")
|
|
|
|
|
" "))
|
|
|
|
|
1 3))))))
|
|
|
|
|
;; When optional argument PREFER-CUSTOM is non-nil, use custom ID
|
|
|
|
|
;; instead of internal reference, whenever possible.
|
|
|
|
|
(should
|
|
|
|
|
(equal
|
|
|
|
|
"a1"
|
|
|
|
|
(let* ((ids nil)
|
|
|
|
|
(backend
|
|
|
|
|
(org-export-create-backend
|
|
|
|
|
:transcoders
|
|
|
|
|
'((headline . (lambda (h c i) c))
|
|
|
|
|
(paragraph . (lambda (p c i) c))
|
|
|
|
|
(section . (lambda (s c i) c))
|
|
|
|
|
(link . (lambda (l c i)
|
|
|
|
|
(let ((option (org-element-property :search-option l))
|
|
|
|
|
(path (org-element-property :path l)))
|
|
|
|
|
(when option
|
|
|
|
|
(throw :exit (org-publish-resolve-external-link
|
|
|
|
|
option path t)))))))))
|
|
|
|
|
(publish
|
|
|
|
|
(lambda (plist filename pub-dir)
|
|
|
|
|
(push (catch :exit
|
|
|
|
|
(org-publish-org-to backend filename ".test" plist pub-dir))
|
|
|
|
|
ids))))
|
|
|
|
|
(org-test-publish (list :publishing-function (list publish)) #'ignore)
|
|
|
|
|
(car ids)))))
|
|
|
|
|
|
2016-12-31 11:29:32 +00:00
|
|
|
|
|
|
|
|
|
;;; Tools
|
|
|
|
|
|
|
|
|
|
(ert-deftest test-org-publish/get-project-from-filename ()
|
|
|
|
|
"Test `org-publish-get-project-from-filename' specifications."
|
|
|
|
|
;; Check base directory.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist `(("p" :base-directory ,base))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; Return nil if no appropriate project is found.
|
|
|
|
|
(should-not
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist `(("p" :base-directory ,base))))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
(org-publish-get-project-from-filename "/other/file.org")))
|
|
|
|
|
;; Return the first project effectively publishing the provided
|
|
|
|
|
;; file.
|
|
|
|
|
(should
|
|
|
|
|
(equal "p2"
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p1" :base-directory "/other/")
|
|
|
|
|
("p2" :base-directory ,base))))
|
|
|
|
|
(car (org-publish-get-project-from-filename file)))))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; When :recursive in non-nil, allow files in sub-directories.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "sub/c.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :recursive t))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
(should-not
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "sub/c.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :recursive nil))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; Check :base-extension.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "file.txt" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :base-extension "txt"))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
(should-not
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "file.txt" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :base-extension "org"))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; When :base-extension has the special value `any', allow any
|
|
|
|
|
;; extension, including none.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "file.txt" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :base-extension any))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "noextension" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :base-extension any))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; Check :exclude property.
|
|
|
|
|
(should-not
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :exclude "a"))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :exclude "other"))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; The regexp matches against relative file name, not absolute one.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :exclude "examples/pub"))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; Check :include property.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "file.txt" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p" :base-directory ,base :include (,file)))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; :include property has precedence over :exclude one.
|
|
|
|
|
(should
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("p"
|
|
|
|
|
:base-directory ,base
|
|
|
|
|
:include (,(file-name-nondirectory file))
|
|
|
|
|
:exclude "a"))))
|
|
|
|
|
(org-publish-get-project-from-filename file)))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
;; With optional argument, return a meta-project publishing provided
|
|
|
|
|
;; file.
|
|
|
|
|
(should
|
|
|
|
|
(equal "meta"
|
2017-05-05 17:52:55 +00:00
|
|
|
|
(let* ((base (expand-file-name "examples/pub/" org-test-dir))
|
|
|
|
|
(file (expand-file-name "a.org" base))
|
|
|
|
|
(org-publish-project-alist
|
|
|
|
|
`(("meta" :components ("p"))
|
|
|
|
|
("p" :base-directory ,base))))
|
|
|
|
|
(car (org-publish-get-project-from-filename file t))))))
|
2016-12-31 11:29:32 +00:00
|
|
|
|
|
2016-11-02 07:58:53 +00:00
|
|
|
|
|
|
|
|
|
(provide 'test-ox-publish)
|
|
|
|
|
;;; test-ox-publish.el ends here
|