[elpa] externals/hyperbole b9017c7: Add kexport tests (#125)

[ELPA Syncer]

branch: externals/hyperbole
commit b9017c71ba385715d6eb3d36e40665a61c76b8b3
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Add kexport tests (#125)
---
 ChangeLog             |   8 +++
 test/kexport-tests.el | 143 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 151 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 1ff8a63..d0e1717 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2021-10-10  Mats Lidell  <matsl@gnu.org>
+
+* test/kexport-tests.el (kexport:html-creates-html-file)
+    (kexport:html-sets-title-and-header, kexport:html-contains-each-cell)
+    (kexport:html-creates-hierarchy)
+    (kexport:display-creates-html-file-and-displayes-it)
+    (kexport:buffer-calls-kexport:html): Add kexport tests.
+
 2021-09-26  Mats Lidell  <matsl@gnu.org>
 
 * Makefile (bin): Hide docstring warnings.
diff --git a/test/kexport-tests.el b/test/kexport-tests.el
new file mode 100644
index 0000000..7663037
--- /dev/null
+++ b/test/kexport-tests.el
@@ -0,0 +1,143 @@
+;;; kexport-tests.el --- kexport tests            -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2021  Mats Lidell
+
+;; Author: Mats Lidell <matsl@gnu.org>
+;;
+;; Orig-Date: 10-Oct-21 at 17:30:00
+;;
+;; Copyright (C) 2021  Free Software Foundation, Inc.
+;; See the "HY-COPY" file for license information.
+;;
+;; This file is part of GNU Hyperbole.
+
+;;; Commentary:
+
+;; Tests for kexport in "../kotl/kexport.el"
+
+;;; Code:
+
+(require 'ert)
+(require 'el-mock)
+(require 'kexport "kotl/kexport")
+
+(ert-deftest kexport:html-creates-html-file ()
+  "kexport:html creates an output html file."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+        (html-file (make-temp-file "hypb" nil ".html")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "first")
+          (kotl-mode:add-cell)
+          (insert "second")
+          (let ((auto-insert nil))
+            (kexport:html kotl-file html-file))
+          (should (file-exists-p html-file)))
+      (progn
+        (delete-file kotl-file)
+        (delete-file html-file)))))
+
+(ert-deftest kexport:html-sets-title-and-header ()
+  "kexport:html set title and header from first cell."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+        (html-file  (make-temp-file "hypb" nil ".html")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "first")
+          (kotl-mode:add-cell)
+          (insert "second")
+          (let ((auto-insert nil))
+            (kexport:html kotl-file html-file))
+          (find-file html-file)
+          (goto-char (point-min))
+          (re-search-forward "<title>first</title>")
+          (re-search-forward "<h1>first</h1>"))
+      (progn
+        (delete-file kotl-file)
+        (delete-file html-file)))))
+
+(ert-deftest kexport:html-contains-each-cell ()
+  "kexport:html contains each cell."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+        (html-file  (make-temp-file "hypb" nil ".html")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "first")
+          (kotl-mode:add-cell)
+          (insert "second")
+          (let ((auto-insert nil))
+            (kexport:html kotl-file html-file))
+          (find-file html-file)
+          (goto-char (point-min))
+          (re-search-forward "<pre>first</pre>")
+          (re-search-forward "<pre>second</pre>"))
+      (progn
+        (delete-file kotl-file)
+        (delete-file html-file)))))
+
+(ert-deftest kexport:html-creates-hierarchy ()
+  "kexport:html exports cells in a hierachy."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+        (html-file  (make-temp-file "hypb" nil ".html")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "first")
+          (kotl-mode:add-child)
+          (insert "second")
+          (kotl-mode:add-child)
+          (insert "third")
+          (let ((auto-insert nil))
+            (kexport:html kotl-file html-file))
+          (find-file html-file)
+          (goto-char (point-min))
+          (re-search-forward "<pre>.*1\\. .*</pre>")
+          (re-search-forward "<pre>first</pre>")
+          (re-search-forward "<pre>.*1a\\. .*</pre>")
+          (re-search-forward "<pre>second</pre>")
+          (re-search-forward "<pre>.*1a1\\. .*</pre>")
+          (re-search-forward "<pre>third</pre>"))
+      (progn
+        (delete-file kotl-file)
+        (delete-file html-file)))))
+
+(ert-deftest kexport:display-creates-html-file-and-displayes-it ()
+  "kexport:display creates html file and displays it in external browser."
+  (let* ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+         (html-file (concat (file-name-sans-extension kotl-file) ".html"))
+         (browse-url-browser-function
+          `(lambda (url &rest _args)
+             (should (string= url (concat "file://" ',html-file)))))
+         (auto-insert nil))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "first")
+          (kotl-mode:add-cell)
+          (insert "second")
+          (should (string= (kexport:display) html-file)))
+      (progn
+        (delete-file kotl-file)
+        (delete-file html-file)))))
+
+(ert-deftest kexport:buffer-calls-kexport:html ()
+  "kexport:buffer calls kexport:html and returns html buffer name."
+  (let* ((kotl-file (make-temp-file "hypb"))
+         (html-file (concat kotl-file ".html")))
+    (unwind-protect
+        (cl-letf (((symbol-function 'kexport:html)
+                   (lambda (export-from output-to &optional soft-newlines-flag)
+                     (should (string= export-from kotl-file))
+                     (should (string= output-to html-file))
+                     (should (equal soft-newlines-flag nil))
+                     nil)))
+          (find-file kotl-file)
+          (should (string= (kexport:buffer) html-file)))
+      (progn
+        (delete-file kotl-file)))))
+
+(provide 'kexport-tests)
+;;; kexport-tests.el ends here