pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Tests for org mode stuff

Browse source
This commit is contained in:
Benson Chu 2019-04-28 11:12:22 -05:00
parent b6658373db
commit f6ad1d7a0d
3 changed files with 215 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
tests/files/children.org Normal file
View file

@ -0,0 +1,33 @@
* Test1
:PROPERTIES:
:RESULT: t
:TEST: t
:END:
* Test2
:PROPERTIES:
:RESULT: t
:TEST: t
:END:
** Test2
* Test3
:PROPERTIES:
:RESULT: nil
:TEST: t
:END:
** TODO Test3
* Test4
:PROPERTIES:
:RESULT: nil
:TEST: t
:END:
** DONE Test4
* Test5
:PROPERTIES:
:RESULT: t
:TEST: t
:END:
** Archive :ARCHIVE:
*** DONE Test5
* Test6
** Test6
*** TODO Test6

119
tests/files/projects.org Normal file
View file

@ -0,0 +1,119 @@
* HOLD Test1
:PROPERTIES:
:RESULT: hold
:TEST: t
:END:
* PROJECT This is a class
SCHEDULED: <2019-03-15 Fri>
** TODO Attend the class :NOT_TASKS:
:PROPERTIES:
:ID: af6ab367-dd78-465e-863a-35aadc662c16
:END:
%%(org-class 2019 01 14 2019 04 29 1) 16:00-17:30 The class
%%(org-class 2019 01 14 2019 04 29 3) 16:00-17:30 The class
** PROJECT Grab the next Homework
SCHEDULED: <2019-03-20 Wed>
:PROPERTIES:
:ID: 035bbde3-aaa7-43fe-b909-9e4d1d4adf34
:END:
*** Archive :ARCHIVE:
**** DONE Homework 2
CLOSED: [2019-01-30 Wed 15:55] DEADLINE: <2019-01-30 Wed 16:00>
:PROPERTIES:
:ID: 3c453b83-dc5c-4a0a-a828-090b1190d5e3
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 3
CLOSED: [2019-02-06 Wed 11:46] DEADLINE: <2019-02-06 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 4
CLOSED: [2019-02-13 Wed 17:15] DEADLINE: <2019-02-13 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 5
CLOSED: [2019-02-20 Wed 15:07] DEADLINE: <2019-02-20 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 6
CLOSED: [2019-02-27 Wed 16:37] SCHEDULED: <2019-02-24 Sun 19:00> DEADLINE: <2019-02-27 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
Org File
**** DONE Homework 7
CLOSED: [2019-03-07 Thu 09:29] DEADLINE: <2019-03-06 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
*** TODO Homework 9
DEADLINE: <2019-04-10 Wed>
** DONE Exam 1
CLOSED: [2019-03-21 Thu 12:37] DEADLINE: <2019-03-20 Wed>
:PROPERTIES:
:CREATED: [2019-02-27 Wed 16:36]
:END:
** DONE Study for Midterm 1
CLOSED: [2019-04-08 Mon 14:26]
* PROJECT This is another class
SCHEDULED: <2019-03-15 Fri>
:PROPERTIES:
:END:
** TODO Attend Another Class
:PROPERTIES:
:ID: af6ab367-dd78-465e-863a-35aadc662c16
:END:
%%(org-class 2019 01 14 2019 04 29 1) 16:00-17:30 Another Class
%%(org-class 2019 01 14 2019 04 29 3) 16:00-17:30 Another Class
** TODO Task 1
** PROJECT Grab the next Homework
SCHEDULED: <2019-03-20 Wed>
:PROPERTIES:
:ID: 035bbde3-aaa7-43fe-b909-9e4d1d4adf34
:END:
*** Archive :ARCHIVE:
**** DONE Homework 2
CLOSED: [2019-01-30 Wed 15:55] DEADLINE: <2019-01-30 Wed 16:00>
:PROPERTIES:
:ID: 3c453b83-dc5c-4a0a-a828-090b1190d5e3
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 3
CLOSED: [2019-02-06 Wed 11:46] DEADLINE: <2019-02-06 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 4
CLOSED: [2019-02-13 Wed 17:15] DEADLINE: <2019-02-13 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 5
CLOSED: [2019-02-20 Wed 15:07] DEADLINE: <2019-02-20 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
**** DONE Homework 6
CLOSED: [2019-02-27 Wed 16:37] SCHEDULED: <2019-02-24 Sun 19:00> DEADLINE: <2019-02-27 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
Org File
**** DONE Homework 7
CLOSED: [2019-03-07 Thu 09:29] DEADLINE: <2019-03-06 Wed>
:PROPERTIES:
:ARCHIVE_TIME: 2019-03-16 Sat 18:53
:END:
*** TODO Homework 9
DEADLINE: <2019-04-10 Wed>
** DONE Exam 1
CLOSED: [2019-03-21 Thu 12:37] DEADLINE: <2019-03-20 Wed>
:PROPERTIES:
:CREATED: [2019-02-27 Wed 16:36]
:END:
** DONE Study for Midterm 1
CLOSED: [2019-04-08 Mon 14:26]

63
tests/my-org-tests.el Normal file
View file

@ -0,0 +1,63 @@
(ert-deftest canary-test ()
(should t))
(defvar tests-directory "~/.emacs.d/tests/files/")
(defmacro define-org-file-point-test (test-name file point func)
`(ert-deftest ,test-name ()
(let ((to-be-removed (find-file-noselect ,file)))
(with-current-buffer to-be-removed
(org-cycle '(64))
(goto-char ,point)
(let ((r (org-entry-get (point) "RESULT")))
(should (eq (and r (intern r))
(funcall ,func))))))))
(defmacro org-test-function-on-file-individual (func file)
(declare (indent defun))
(let ((file (expand-file-name file tests-directory)))
`(let ((count 0)
(buf (find-file-noselect ,file)))
(with-current-buffer buf
(goto-char (point-min))
(while (not (eobp))
(when (org-entry-get (point) "TEST")
(let ((test-name (intern (format "test%d-%s" count (symbol-name ,func))))
(p (point)))
(define-org-file-point-test test-name ,file p ,func))
(incf count))
(outline-next-heading))))))
(defmacro org-test-function-on-file-individual (func file)
(declare (indent defun))
(let ((file (expand-file-name file tests-directory)))
`(progn
,@(mapcar
(lambda (p)
(let ((test-name (intern (format "test%d-%s" p (symbol-name (cadr func))))))
`(define-org-file-point-test ,test-name ,file ,p ,func)))
(get-all-points-that-require-tests file)))))
(defun get-all-points-that-require-tests (file)
(let ((visited? (get-file-buffer file))
(buff (find-file-noselect file))
(res '()))
(with-current-buffer buff
(goto-char (point-min))
(while (not (eobp))
(when (org-entry-get (point) "TEST")
(push (point) res))
(outline-next-heading)))
(unless visited?
(kill-buffer buff))
res))
(org-test-function-on-file-individual #'my/no-children "children.org")
(defun my/get-project-type-ambiguous-stuck ()
(my/get-project-type buffer-file-name (point) t))
(org-test-function-on-file-individual #'my/get-project-type-ambiguous-stuck
"~/.emacs.d/tests/files/projects.org")