diff options
| author | Craig Jennings <c@cjennings.net> | 2025-11-13 11:03:00 -0600 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2025-11-13 11:03:00 -0600 |
| commit | 87e74a3a6ccf5b05b760e9f8beec9a78886ab076 (patch) | |
| tree | 2179ba106bef7b6dc2f3ad72bfe567205213e609 /tests/org-drill-test.el | |
| parent | 2442235f1aa86dcfba1909ddeba0cf37b46922a3 (diff) | |
| download | org-drill-87e74a3a6ccf5b05b760e9f8beec9a78886ab076.tar.gz org-drill-87e74a3a6ccf5b05b760e9f8beec9a78886ab076.zip | |
refactor: Improve test infrastructure and fix all compiler warnings
This commit modernizes the test infrastructure and eliminates all
compilation warnings to prepare for comprehensive test coverage.
Test Infrastructure Improvements:
- Reorganize tests from test/ to tests/ directory (standard convention)
- Modernize Makefile with patterns from chime.el
- Add convenient test targets (test-file, test-name)
- Support unit and integration test separation
- Better help documentation with examples
- Auto-detect Cask installation location
- Add comprehensive test-strategy.org document
- 6-week implementation plan
- Critical function prioritization
- Integration test scenarios
- Coverage goals (80% target)
Compiler Warning Fixes (org-drill.el):
- Replace obsolete org-mode functions:
- org-show-subtree → org-fold-show-subtree
- org-show-entry → org-fold-show-entry
- org-get-tags-at → org-get-tags
- org-remove-latex-fragment-image-overlays → org-clear-latex-preview
- org-toggle-latex-fragment → org-latex-preview
- org-bracket-link-regexp → org-link-bracket-re
- Fix ~31 unescaped single quotes in docstrings (use \=')
- Remove unused lexical variables (cb, drawer-name, session, orig-fun)
- Remove obsolete outline-view-change-hook binding
- Wrap org 8.x compatibility shim in with-no-warnings
- Fix long docstring at line 1085
Test Status:
- All 3 existing tests passing
- Zero compilation warnings (was ~40 warnings)
- Ready for Phase 1 implementation (foundation tests)
Diffstat (limited to 'tests/org-drill-test.el')
| -rw-r--r-- | tests/org-drill-test.el | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/tests/org-drill-test.el b/tests/org-drill-test.el new file mode 100644 index 0000000..4765a99 --- /dev/null +++ b/tests/org-drill-test.el @@ -0,0 +1,53 @@ +;;; 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"))))) |
