fix test failures

Author: Danny McClanahan

markdown-mode.el

@@ -5947,7 +5947,8 @@ alive."
                  (funcall
                   markdown-live-preview-window-function out-file))))
           (with-current-buffer view-buf
-            (add-hook #'markdown-live-preview-teardown-view t t))
+            (add-hook 'kill-buffer-hook
+                      #'markdown-live-preview-teardown-view t t))
           (markdown-live-preview-link-source-view-buffers
            src-buf view-buf)
           (with-current-buffer src-buf

tests/markdown-test.el

@@ -3755,48 +3755,46 @@ Detail: https://github.com/jrblevin/markdown-mode/issues/79"
     (let ((markdown-live-preview-idle-delay .01))
       (markdown-temp-eww
        (markdown-live-preview-mode)
-       (sit-for (+ markdown-live-preview-idle-delay .01))
+       (sit-for (* markdown-live-preview-idle-delay 3))
        (accept-process-output)
        (should (buffer-live-p markdown-live-preview-view-buffer))
        (should (eq (current-buffer)
                    (with-current-buffer markdown-live-preview-view-buffer
                      markdown-live-preview-source-buffer)))
        (kill-buffer markdown-live-preview-view-buffer)
        (should (null markdown-live-preview-view-buffer))
-       (set-buffer-modified-p t)
-       ;; below should create new export
-       (sit-for (+ markdown-live-preview-idle-delay .01))
+       (markdown-live-preview-async-export)
+       (sit-for (* markdown-live-preview-idle-delay 3))
+       (accept-process-output)
        (should (buffer-live-p markdown-live-preview-view-buffer))))))
 
 (ert-deftest test-markdown-ext/live-preview-delete-exports ()
-  (let ((markdown-live-preview-idle-delay .01))
+  (let ((markdown-live-preview-idle-delay .01)
+        file-output)
     (markdown-temp-eww
-     (let ((markdown-live-preview-delete-export 'delete-on-destroy)
-           file-output)
+     (let ((markdown-live-preview-delete-export 'delete-on-destroy))
        (markdown-test-temp-file "inline.text"
          (markdown-live-preview-mode)
-         (sit-for (+ markdown-live-preview-idle-delay .01))
+         (sit-for (* markdown-live-preview-idle-delay 3))
          (accept-process-output)
          (setq file-output (markdown-export-file-name)))
        (should-not (file-exists-p file-output)))
-     (let ((markdown-live-preview-delete-export 'delete-on-export)
-           file-output)
+     (let ((markdown-live-preview-delete-export 'delete-on-export))
        (markdown-test-temp-file "inline.text"
          (markdown-live-preview-mode)
-         (sit-for (+ markdown-live-preview-idle-delay .01))
+         (sit-for (* markdown-live-preview-idle-delay 3))
          (accept-process-output)
          (setq file-output (markdown-export-file-name))
          (should-not (file-exists-p file-output))))
-     (let ((markdown-live-preview-delete-export nil)
-           file-output)
-       (unwind-protect
-           (markdown-test-temp-file "inline.text"
-             (markdown-live-preview-mode)
-             (sit-for (+ markdown-live-preview-idle-delay .01))
-             (accept-process-output)
-             (setq file-output (markdown-export-file-name))
-             (should (file-exists-p file-output)))
-         (delete-file file-output))))))
+     (unwind-protect
+         (markdown-test-temp-file "inline.text"
+           (markdown-live-preview-mode)
+           (sit-for (* markdown-live-preview-idle-delay 3))
+           (accept-process-output)
+           (setq file-output (markdown-export-file-name))
+           (setq markdown-live-preview-delete-export nil)
+           (should (file-exists-p file-output)))
+       (delete-file file-output)))))
 
 (provide 'markdown-test)