diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Makefile | 6 | ||||
| -rw-r--r-- | test/one-two-three.org | 12 | ||||
| -rw-r--r-- | test/org-drill-test.el | 53 |
3 files changed, 0 insertions, 71 deletions
diff --git a/test/Makefile b/test/Makefile deleted file mode 100644 index 8406646..0000000 --- a/test/Makefile +++ /dev/null @@ -1,6 +0,0 @@ -## what ever we called, don't do it here -default: - $(MAKE) -C .. - -$(MAKECMDGOALS): - $(MAKE) -C .. $(MAKECMDGOALS) diff --git a/test/one-two-three.org b/test/one-two-three.org deleted file mode 100644 index c1120b6..0000000 --- a/test/one-two-three.org +++ /dev/null @@ -1,12 +0,0 @@ - -* One :drill:tagtest: - -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 deleted file mode 100644 index 4765a99..0000000 --- a/test/org-drill-test.el +++ /dev/null @@ -1,53 +0,0 @@ -;;; org-drill-test.el - -;;; Header: - -;; This file is not part of Emacs - -;; Author: Phillip Lord <phillip.lord@russet.org.uk> -;; Maintainer: Phillip Lord <phillip.lord@russet.org.uk> - -;; The contents of this file are subject to the GPL License, Version 3.0. - -;; Copyright (C) 2019, Phillip Lord - -;; This program is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <http://www.gnu.org/licenses/>. - -;;; 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 38 66) - (assess-with-find-file - (assess-make-related-file - (concat this-directory "one-two-three.org")) - (org-drill-map-entries (lambda () (point)) 'file nil))))) - -(ert-deftest find-tagged-entries () - (should - (equal '(2) - (assess-with-find-file - (assess-make-related-file - (concat this-directory "one-two-three.org")) - (org-drill-map-entries (lambda () (point)) 'file "tagtest"))))) |
