[elpa] externals/el-job 00509d0175 4/6: Add test

[ELPA Syncer]

branch: externals/el-job
commit 00509d0175d67e2e04150b3e71795b68736a6d50
Author: Martin Edström <meedstrom@runbox.eu>
Commit: Martin Edström <meedstrom@runbox.eu>

    Add test
---
 el-job-test.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/el-job-test.el b/el-job-test.el
index 6faf8a43c8..4004becd02 100644
--- a/el-job-test.el
+++ b/el-job-test.el
@@ -54,4 +54,30 @@
     (should (= 5 (length (el-job--split-optimally (take 5 items) 15 
tiny-table))))
     (should (= 5 (length (el-job--split-optimally (take 5 items) 15 
empty-table))))))
 
+(ert-deftest el-job--ensure-compiled-lib ()
+  (when (and (require 'comp nil t)
+             (boundp 'comp-async-compilations)
+             (hash-table-p comp-async-compilations)
+             (fboundp #'comp-lookup-eln))
+    (let (skip-test)
+      (let ((loaded (el-job--locate-lib-in-load-history
+                     'el-job-child)))
+        (when (string-suffix-p ".el" loaded)
+          (setq loaded (comp-lookup-eln loaded)))
+        (when (and loaded (string-suffix-p ".eln" loaded))
+          (condition-case _
+              (delete-file loaded)
+            (file-error (setq skip-test t)))))
+      (unless skip-test
+        (load (locate-library "el-job-child.el"))
+        (should (string-suffix-p ".el" (el-job--locate-lib-in-load-history
+                                        'el-job-child)))
+        (should (string-suffix-p ".elc" (el-job--ensure-compiled-lib
+                                         'el-job-child)))
+        (when (let ((procs (hash-table-values comp-async-compilations)))
+                (not (el-job--sit-until-nil-p
+                      (cl-some #'process-live-p procs) 10)))
+          (should (string-suffix-p ".eln" (el-job--ensure-compiled-lib
+                                           'el-job-child))))))))
+
 ;;; el-job-test.el ends here