[elpa] externals/lentic 576199a197 172/333: Quieten test.

[ELPA Syncer]

branch: externals/lentic
commit 576199a197bae6185a0be43aeb3b060f81b57269
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    Quieten test.
---
 test/lentic-test.el | 30 ++++++++----------------------
 1 file changed, 8 insertions(+), 22 deletions(-)

diff --git a/test/lentic-test.el b/test/lentic-test.el
index 8354a7f431..a5ebd21f7f 100644
--- a/test/lentic-test.el
+++ b/test/lentic-test.el
@@ -356,28 +356,14 @@ This mostly checks my test machinary."
   (should
    (equal
     (concat "x" abc-txt)
-    (let ((x
-           (lentic-test-clone-and-change-with-config
-            (lentic-test-file "abc.txt")
-            'lentic-delayed-default-init
-            (lambda ()
-              (message "lentic config in delayed is: %s" lentic-config)
-              (goto-char (point-min))
-              (insert "x")
-              (message "buffer contents: %s" (buffer-string))
-              (save-excursion
-                (set-buffer (lentic-that lentic-config))
-                (message "lentic contents: %s" (buffer-string)))
-              (message "Sitting")
-              (lentic-delayed-timer-function)
-              (message "Sitting...done")
-              (message "buffer contents: %s" (buffer-string))
-              (save-excursion
-                (set-buffer (lentic-that lentic-config))
-                (message "lentic contents: %s" (buffer-string)))
-              ))))
-      (message "Return value: %s" x)
-      x))))
+    (lentic-test-clone-and-change-with-config
+     (lentic-test-file "abc.txt")
+     'lentic-delayed-default-init
+     (lambda ()
+       (goto-char (point-min))
+       (insert "x")
+       ;; run timer by ourselves.
+       (lentic-delayed-timer-function))))))
 
 ;; tests for lots of types of change and whether they break the incremental
 ;; updates.