emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/hyperbole e8674c9662 1/2: Use level one heading in mark


From: ELPA Syncer
Subject: [elpa] externals/hyperbole e8674c9662 1/2: Use level one heading in markdown, set explicit time format in test (#411)
Date: Fri, 1 Dec 2023 18:57:57 -0500 (EST)

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

    Use level one heading in markdown, set explicit time format in test (#411)
---
 ChangeLog            | 7 +++++++
 test/hyrolo-tests.el | 9 +++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ecd08c4d8b..0a0f6d8df2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2023-12-01  Mats Lidell  <matsl@gnu.org>
+
+* test/hyrolo-tests.el (hyrolo-sort-test): Set default date format so the
+    format used is well defined.
+    (hyrolo-fgrep-and-goto-next-visible-md-heading): Use level one heading
+    so that heading hierarchy is respected.
+
 2023-12-01  Bob Weiner  <rsw@gnu.org>
 
 * hargs.el (hargs:delimited): Remove use of 'bounds-of-thing-at-point'
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 53a9fe47fb..f84092429f 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:     29-Nov-23 at 23:22:15 by Mats Lidell
+;; Last-Mod:      1-Dec-23 at 23:20:39 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -206,7 +206,8 @@ and {b} the previous same level cell."
   "HyRolo files can be sorted."
   (let ((hyrolo-file (make-temp-file "hypb" nil ".otl")))
     (unwind-protect
-        (let ((hyrolo-file-list (list hyrolo-file)))
+        (let ((hyrolo-file-list (list hyrolo-file))
+              (hyrolo-date-format "%m/%d/%Y"))
           (hyrolo-find-file (car (hyrolo-get-file-list)))
           (insert "===\nHdr\n===\n")
           (goto-char (point-min))
@@ -364,7 +365,7 @@ and {b} the previous same level cell."
   "Verify move to next heading, then action-key to go to record for markdown 
mode."
   :expected-result :failed
   (let* ((temporary-file-directory (make-temp-file "hypb" t))
-         (md-file (make-temp-file "hypb" nil ".md" "## 
heading\nstring\nmore\n"))
+         (md-file (make-temp-file "hypb" nil ".md" "# 
heading\nstring\nmore\n"))
          (hyrolo-file-list (list temporary-file-directory)))
     (unwind-protect
         (progn
@@ -377,7 +378,7 @@ and {b} the previous same level cell."
           (with-simulated-input "y RET" ; Do you want to revisit the file 
normally now?
             (action-key)
             (should (equal (current-buffer) (find-buffer-visiting md-file)))
-            (should (looking-at-p "## heading"))))
+            (should (looking-at-p "# heading"))))
       (hy-delete-file-and-buffer md-file)
       (kill-buffer "*HyRolo*")
       (delete-directory temporary-file-directory))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]