[nongnu] elpa/org-drill 500d1475c3 120/251: Add count entries test

[ELPA Syncer]

branch: elpa/org-drill
commit 500d1475c3fe3fdb15b8bb015ca2f9487b13b4f9
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>

    Add count entries test
---
 test/one-two-three.org | 12 ++++++++++++
 test/org-drill-test.el | 13 +++++++++++++
 2 files changed, 25 insertions(+)

diff --git a/test/one-two-three.org b/test/one-two-three.org
new file mode 100644
index 0000000000..a34f905033
--- /dev/null
+++ b/test/one-two-three.org
@@ -0,0 +1,12 @@
+
+* One :drill:
+
+Body of One
+
+* Two :drill:
+
+Body of Two
+
+* Three :drill:
+
+Body of Three
diff --git a/test/org-drill-test.el b/test/org-drill-test.el
index 8f5b7e7445..26e60c0aa4 100644
--- a/test/org-drill-test.el
+++ b/test/org-drill-test.el
@@ -26,7 +26,20 @@
 
 ;;; Code:
 
+(require 'assess)
 (require 'org-drill)
 
+(defvar this-directory
+  (file-name-directory
+   (or load-file-name (buffer-file-name))))
+
 (ert-deftest load-test ()
   (should t))
+
+(ert-deftest find-entries ()
+  (should
+   (equal '(2 30 58)
+      (assess-with-find-file
+          (assess-make-related-file
+           (concat this-directory "one-two-three.org"))
+        (org-map-drill-entries (lambda () (point)) 'file nil)))))