fix waiting for async

Author: Danny McClanahan

tests/markdown-test.el

@@ -3748,24 +3748,29 @@ Detail: https://github.com/jrblevin/markdown-mode/issues/79"
                               'around 'markdown-create-fake-eww)
            (ad-activate #'markdown-live-preview-window-eww)))))
 
+(defun markdown-test/live-preview-wait ()
+  (unless markdown-live-preview-current-buffer-sync-async
+    (sit-for (* markdown-live-preview-idle-delay 10))
+    (accept-process-output)))
+
 (defun markdown-test/live-preview-exports ()
   (markdown-test-temp-file "inline.text"
     (unless (require 'eww nil t)
       (should-error (markdown-live-preview-mode)))
     (let ((markdown-live-preview-idle-delay .01))
       (markdown-temp-eww
        (markdown-live-preview-mode)
-       (sit-for (* markdown-live-preview-idle-delay 3))
-       (accept-process-output)
+       (markdown-test/live-preview-wait)
        (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))
-       (markdown-live-preview-async-export)
-       (sit-for (* markdown-live-preview-idle-delay 3))
-       (accept-process-output)
+       (if markdown-live-preview-current-buffer-sync-async
+           (markdown-live-preview-sync-export)
+         (markdown-live-preview-async-export)
+         (markdown-test/live-preview-wait))
        (should (buffer-live-p markdown-live-preview-view-buffer))))))
 
 (ert-deftest test-markdown-ext/live-preview-exports-sync ()
@@ -3782,22 +3787,19 @@ Detail: https://github.com/jrblevin/markdown-mode/issues/79"
      (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 3))
-         (accept-process-output)
+         (markdown-test/live-preview-wait)
          (setq file-output (markdown-export-file-name)))
        (should-not (file-exists-p 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 3))
-         (accept-process-output)
+         (markdown-test/live-preview-wait)
          (setq file-output (markdown-export-file-name))
          (should-not (file-exists-p 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)
+           (markdown-test/live-preview-wait)
            (setq file-output (markdown-export-file-name))
            (setq markdown-live-preview-delete-export nil)
            (should (file-exists-p file-output)))