670 lines
18 KiB
EmacsLisp
670 lines
18 KiB
EmacsLisp
;;; org-x-text-buffer-state.el --- Examples for org.el's API -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2015 Free Software Foundation, Inc.
|
|
|
|
;; 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/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 's)
|
|
(require 'dash)
|
|
(require 'org-x)
|
|
|
|
(defun org-ts-to-unixtime (timestamp-string)
|
|
"Convert TIMESTAMP-STRING to unixtime."
|
|
(let ((decoded (org-parse-time-string timestamp-string)))
|
|
(->> (-snoc decoded (current-time-zone))
|
|
(apply #'encode-time)
|
|
(float-time)
|
|
(round))))
|
|
|
|
(defun org-x-gen-ts (offset &optional active)
|
|
"Generate an org timestamp string.
|
|
OFFSET is the length of time from now in seconds (positive is in
|
|
the future). Make an active timestamp if ACTIVE is t."
|
|
(-> (float-time)
|
|
(+ offset)
|
|
(org-ml-unixtime-to-time-long)
|
|
(org-ml-build-timestamp! :active active)
|
|
(org-ml-to-string)))
|
|
|
|
(defun org-x-test-parse-forms (s)
|
|
"Evaluate forms in string S.
|
|
Forms are denoted like %(FORM)%."
|
|
(--reduce-from (-let (((rep sform) it))
|
|
(s-replace rep (format "%s" (eval (read sform))) acc))
|
|
s
|
|
(s-match-strings-all "%\\((.*?)\\)%" s)))
|
|
|
|
(defmacro org-ml--with-org-buffer (string &rest body)
|
|
"Call `org-ml--with-org-env' with BODY and STRING as the buffer."
|
|
(let ((s (->> (if (listp string) (s-join "\n" string) string)
|
|
(org-x-test-parse-forms))))
|
|
`(org-ml--with-org-env
|
|
(insert ,s)
|
|
(goto-char (point-min))
|
|
,@body)))
|
|
|
|
(defmacro org-x--test-buffer-strings (name test &rest specs)
|
|
"Run TEST form for SPECS called by toplevel NAME."
|
|
(declare (indent 2))
|
|
(let ((forms (->> (-partition 4 specs)
|
|
;; the _op argument is just for looks to make the decl clearer
|
|
(--map (-let (((title buffer _op result) it))
|
|
`(it ,title
|
|
(expect (org-ml--with-org-buffer ,buffer ,test)
|
|
:to-equal
|
|
,result)))))))
|
|
`(describe ,name ,@forms)))
|
|
|
|
(org-x--test-buffer-strings "Task status"
|
|
(org-x-task-status)
|
|
|
|
"no status"
|
|
"* headline"
|
|
=> nil
|
|
|
|
"active"
|
|
"* TODO headline"
|
|
=> :active
|
|
|
|
"active (not yet expired date)"
|
|
("* TODO headline"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* 2 24 60 60)))%"
|
|
":X-EXPIRE: %(org-x-gen-ts (* 1 24 60 60))%"
|
|
":END:")
|
|
=> :active
|
|
|
|
"active (not yet expired dtl)"
|
|
("* TODO headline"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* 2 24 60 60)))%"
|
|
":X-DAYS_TO_LIVE: 3"
|
|
":END:")
|
|
=> :active
|
|
|
|
"done unclosed"
|
|
"* DONE headline"
|
|
=> :done-unclosed
|
|
|
|
"undone closed"
|
|
("* TODO headline"
|
|
"CLOSED: %(org-x-gen-ts 0)%")
|
|
=> :undone-closed
|
|
|
|
"complete"
|
|
("* DONE headline"
|
|
"CLOSED: %(org-x-gen-ts 0)%")
|
|
=> :complete
|
|
|
|
"archivable"
|
|
("* DONE headline"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%")
|
|
=> :archivable
|
|
|
|
"expired (date)"
|
|
("* TODO headline"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* 2 24 60 60)))%"
|
|
":X-EXPIRE: %(org-x-gen-ts (- (* 1 24 60 60)))%"
|
|
":END:")
|
|
=> :expired
|
|
|
|
"expired (dtl)"
|
|
("* TODO headline"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* 2 24 60 60)))%"
|
|
":X-DAYS_TO_LIVE: 1"
|
|
":END:")
|
|
=> :expired
|
|
|
|
"inert (created timestamp)"
|
|
("* TODO headline"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* (1+ org-x-inert-delay-days) 24 60 60)))%"
|
|
":END:")
|
|
=> :inert
|
|
|
|
"not inert (future deadline)"
|
|
("* TODO headline"
|
|
"DEADLINE: %(org-x-gen-ts (* 1 24 60 60))%"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* (1+ org-x-inert-delay-days) 24 60 60)))%"
|
|
":END:")
|
|
=> :active
|
|
|
|
"not inert (future schedule)"
|
|
("* TODO headline"
|
|
"SCHEDULED: %(org-x-gen-ts (* 1 24 60 60))%"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* (1+ org-x-inert-delay-days) 24 60 60)))%"
|
|
":END:")
|
|
=> :active)
|
|
|
|
;; NOTE the silly thing about this function is that headlines need not actually
|
|
;; be projects :/
|
|
(org-x--test-buffer-strings "Project status"
|
|
(org-x-get-project-status)
|
|
|
|
"scheduled"
|
|
("* TODO project"
|
|
"SCHEDULED: %(org-x-gen-ts 0)%")
|
|
=> :scheduled-project
|
|
|
|
"held"
|
|
("* HOLD project")
|
|
=> :held
|
|
|
|
;; ASSUME the inert code paths are fully tested elsewhere
|
|
"inert"
|
|
("* HOLD project"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* (1+ org-x-inert-delay-days) 24 60 60)))%"
|
|
":END:")
|
|
=> :inert
|
|
|
|
"invalid todo (NEXT)"
|
|
("* NEXT project")
|
|
=> :invalid-todostate
|
|
|
|
"invalid todo (WAIT)"
|
|
("* WAIT project")
|
|
=> :invalid-todostate
|
|
|
|
"canceled (complete)"
|
|
("* CANC project")
|
|
=> :complete
|
|
|
|
"canceled (archivable)"
|
|
("* CANC project"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%")
|
|
=> :archivable
|
|
|
|
"complete (subtask complete)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts 0)%"
|
|
"** DONE task 1"
|
|
"CLOSED: %(org-x-gen-ts 0)%")
|
|
=> :complete
|
|
|
|
;; TODO this should be :complete
|
|
"complete (subtask archivable)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts 0)%"
|
|
"** DONE task 1"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%")
|
|
=> :archivable
|
|
|
|
"archivable"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"** DONE task 1"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%")
|
|
=> :archivable
|
|
|
|
"done-incomplete (subtask TODO)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"** TODO task 1")
|
|
=> :done-incomplete
|
|
|
|
"done-incomplete (subtask TODO)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"** TODO task 1")
|
|
=> :done-incomplete
|
|
|
|
;; TODO this should be an error
|
|
"done-incomplete (subtask done-unclosed)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"** DONE task 1")
|
|
=> :complete
|
|
|
|
;; TODO this should be :complete
|
|
"complete (subtask archivable nested)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts 0)%"
|
|
"** DONE task 1"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"*** DONE task 2"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%")
|
|
=> :archivable
|
|
|
|
"archivable (nested)"
|
|
("* DONE project"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"** DONE task 1"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%"
|
|
"*** DONE task 2"
|
|
"CLOSED: %(org-x-gen-ts (- (* (1+ org-x-archive-delay) 24 60 60)))%")
|
|
=> :archivable
|
|
|
|
;; TODO there are many other paths to test for the DONE toplevel keyword
|
|
|
|
;; TODO this seems error-prone
|
|
"active (singleton...???)"
|
|
("* TODO project")
|
|
=> :stuck
|
|
|
|
"active (subtask)"
|
|
("* TODO project"
|
|
"** NEXT task")
|
|
=> :active
|
|
|
|
"wait (subtask)"
|
|
("* TODO project"
|
|
"** WAIT task")
|
|
=> :wait
|
|
|
|
"held (subtask)"
|
|
("* TODO project"
|
|
"** HOLD task")
|
|
=> :held
|
|
|
|
"inert (subtask)"
|
|
("* TODO project"
|
|
"** TODO task"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* (1+ org-x-inert-delay-days) 24 60 60)))%"
|
|
":END:")
|
|
=> :inert
|
|
|
|
"undone-complete (subtask)"
|
|
("* TODO project"
|
|
"** DONE TASK"
|
|
"CLOSED: (org-x-gen-ts 0)")
|
|
=> :undone-complete
|
|
|
|
"stuck (subtask)"
|
|
("* TODO project"
|
|
"** TODO TASK")
|
|
=> :stuck
|
|
|
|
"active (subtask 2)"
|
|
("* TODO project"
|
|
"** TODO task 1 "
|
|
"*** NEXT task 2")
|
|
=> :active
|
|
|
|
"wait (subtask 2)"
|
|
("* TODO project"
|
|
"** TODO task 1 "
|
|
"*** WAIT task 2")
|
|
=> :wait
|
|
|
|
"held (subtask 2)"
|
|
("* TODO project"
|
|
"** TODO task 1"
|
|
"*** HOLD task 2")
|
|
=> :held
|
|
|
|
"inert (subtask 2)"
|
|
("* TODO project"
|
|
"** TODO task 1"
|
|
"*** TODO task 2"
|
|
":PROPERTIES:"
|
|
":CREATED: %(org-x-gen-ts (- (* (1+ org-x-inert-delay-days) 24 60 60)))%"
|
|
":END:")
|
|
=> :inert
|
|
|
|
"undone-complete (subtask 2)"
|
|
("* TODO project"
|
|
"** TODO task 1"
|
|
"*** DONE task 2"
|
|
"CLOSED: (org-x-gen-ts 0)")
|
|
=> :undone-complete
|
|
|
|
"stuck (subtask 2)"
|
|
("* TODO project"
|
|
"** TODO task 1"
|
|
"*** TODO task 2")
|
|
=> :stuck)
|
|
|
|
(org-x--test-buffer-strings "Iterator status"
|
|
(org-x-get-iterator-status)
|
|
|
|
"uninitialized"
|
|
("* TODO iterator"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: iterator"
|
|
":END:")
|
|
=> :uninit
|
|
|
|
"unscheduled"
|
|
("* TODO iterator"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: iterator"
|
|
":END:"
|
|
"** TODO sub")
|
|
=> :unscheduled
|
|
|
|
"unscheduled (with DONE)"
|
|
("* TODO iterator"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: iterator"
|
|
":END:"
|
|
"** DONE sub"
|
|
"CLOSED: %(org-x-gen-ts 0)%"
|
|
"** TODO sub")
|
|
=> :unscheduled
|
|
|
|
"empty"
|
|
("* TODO iterator"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: iterator"
|
|
":END:"
|
|
"** DONE sub"
|
|
"CLOSED: %(org-x-gen-ts 0)%")
|
|
=> :empt
|
|
|
|
"active"
|
|
("* TODO iterator"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: iterator"
|
|
":END:"
|
|
"** TODO sub"
|
|
"SCHEDULED: %(org-x-gen-ts (+ (* 60 60 24) org-x-iter-future-time))%")
|
|
=> :actv
|
|
|
|
"project error"
|
|
("* TODO iterator"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: iterator"
|
|
":END:"
|
|
"** NEXT sub"
|
|
"*** TODO subsub"
|
|
"SCHEDULED: %(org-x-gen-ts (1+ org-x-iter-future-time))%")
|
|
=> :project-error)
|
|
|
|
(org-x--test-buffer-strings "Periodical status"
|
|
(org-x-get-periodical-status)
|
|
|
|
"uninitialized"
|
|
("* periodical"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: periodical"
|
|
":END:")
|
|
=> :uninit
|
|
|
|
"empty"
|
|
("* periodical"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: periodical"
|
|
":END:"
|
|
"** sub"
|
|
"%(org-x-gen-ts 0 t)%")
|
|
=> :empt
|
|
|
|
"active"
|
|
("* periodical"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: periodical"
|
|
":END:"
|
|
"** sub"
|
|
"%(org-x-gen-ts (+ (* 60 60 24) org-x-peri-future-time) t)%")
|
|
=> :actv
|
|
|
|
"unscheduled"
|
|
("* periodical"
|
|
":PROPERTIES:"
|
|
":PARENT_TYPE: periodical"
|
|
":END:"
|
|
"** sub")
|
|
=> :unscheduled)
|
|
|
|
|
|
(org-x--test-buffer-strings "Conflicts"
|
|
(->> (org-x-agg--get-timespans-from-buffer "fp")
|
|
(org-x-agg--timespans-group-conflicts)
|
|
;; drop the :unixtime key from the front to make testing easier
|
|
(--map (--map (-drop 2 it) it)))
|
|
|
|
"no timestamps"
|
|
("* TODO one"
|
|
"* TODO two")
|
|
=> nil
|
|
|
|
"two scheduled timestamps"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]")
|
|
=> '(((:start-time (2022 1 1 12 0) :range 0 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 0) :range 0 :offset 46 :filepath "fp")))
|
|
|
|
"scheduled timestamps + active timestamp"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
"* two"
|
|
"<2022-01-01 Tue 12:00>")
|
|
=> '(((:start-time (2022 1 1 12 0) :range 0 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 0) :range 0 :offset 46 :filepath "fp")))
|
|
|
|
"two scheduled timestamps (staggered)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:30"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 12:15]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:30"
|
|
":END:")
|
|
=> '(((:start-time (2022 1 1 12 0) :range 1800 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 15) :range 1800 :offset 79 :filepath "fp")))
|
|
|
|
"scheduled + active (staggered)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:30"
|
|
":END:"
|
|
"* two"
|
|
"<2022-01-01 Tue 12:15-12:45>")
|
|
=> '(((:start-time (2022 1 1 12 0) :range 1800 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 15) :range 1800 :offset 79 :filepath "fp")))
|
|
|
|
"two scheduled timestamps (non-overlapping)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:05"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 12:15]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:05"
|
|
":END:")
|
|
=> nil
|
|
|
|
"three scheduled timestamps (overlapping)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:15"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 12:05]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:15"
|
|
":END:"
|
|
"* TODO three"
|
|
"SCHEDULED: [2022-01-01 Tue 12:10]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:15"
|
|
":END:")
|
|
=> '(((:start-time (2022 1 1 12 0) :range 900 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 5) :range 900 :offset 79 :filepath "fp"))
|
|
((:start-time (2022 1 1 12 0) :range 900 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 10) :range 900 :offset 157 :filepath "fp"))
|
|
((:start-time (2022 1 1 12 5) :range 900 :offset 79 :filepath "fp")
|
|
(:start-time (2022 1 1 12 10) :range 900 :offset 157 :filepath "fp"))))
|
|
|
|
(org-x--test-buffer-strings "Overloads"
|
|
(->> (org-x-agg--get-timespans-from-buffer "fp")
|
|
(org-x-agg--timespans-group-overloads)
|
|
;; drop the :unixtime key from the front to make testing easier
|
|
(--map (--map (-drop 2 it) it)))
|
|
|
|
;; this assumes the TODO vs active ts parsing works as expected
|
|
"no timestamps"
|
|
("* TODO one"
|
|
"* TODO two")
|
|
=> nil
|
|
|
|
"not overloaded"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:15"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 0:15"
|
|
":END:")
|
|
=> nil
|
|
|
|
"overloaded (exactly 24 hours)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 12h"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 12h"
|
|
":END:")
|
|
=> '(((:start-time (2022 1 1 0 0) :range 43200 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 0 0) :range 43200 :offset 78 :filepath "fp")))
|
|
|
|
"overloaded (over 24 hours)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 12h"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 13h"
|
|
":END:")
|
|
=> '(((:start-time (2022 1 1 0 0) :range 43200 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 0 0) :range 46800 :offset 78 :filepath "fp")))
|
|
|
|
"overloaded (over 24 hours and split)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 12h"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 25h"
|
|
":END:")
|
|
=> '(((:start-time (2022 1 1 0 0) :range 43200 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 0 0) :range 86400 :offset 78 :filepath "fp")))
|
|
|
|
"overloaded (over 48 hours)"
|
|
("* TODO one"
|
|
"SCHEDULED: [2022-01-01 Tue 00:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 12h"
|
|
":END:"
|
|
"* TODO two"
|
|
"SCHEDULED: [2022-01-01 Tue 12:00]"
|
|
":PROPERTIES:"
|
|
":Effort: 36h"
|
|
":END:")
|
|
=> '(((:start-time (2022 1 1 0 0) :range 43200 :offset 1 :filepath "fp")
|
|
(:start-time (2022 1 1 12 0) :range 43200 :offset 78 :filepath "fp"))
|
|
((:start-time (2022 1 2 0 0) :range 86400 :offset 78 :filepath "fp"))))
|
|
|
|
(defmacro org-x--test-time-splitter-specs (&rest specs)
|
|
(declare (indent 0))
|
|
;; 3 args for clarity, currently does nothing functional
|
|
(let ((forms
|
|
(->> (-partition 4 specs)
|
|
(--map (-let* (((title input _useless-sugar output) it)
|
|
(extra '(:offset 0 :filepath "bass4urface"))
|
|
(input* (append input extra))
|
|
(output* (--map (append it extra) output)))
|
|
`(it ,title
|
|
(expect (org-x-agg--split-timespan-by-day ',input*)
|
|
:to-equal
|
|
',output*)))))))
|
|
`(describe "Time splitter"
|
|
,@forms)))
|
|
|
|
|
|
(org-x--test-time-splitter-specs
|
|
"zero range"
|
|
(:start-time (2021 1 1 0 0) :range 0)
|
|
=> ((:start-time (2021 1 1 0 0) :range 0))
|
|
|
|
"1-hour range"
|
|
(:start-time (2021 1 1 0 0) :range 3600)
|
|
=> ((:start-time (2021 1 1 0 0) :range 3600))
|
|
|
|
"12-hour range (noon start)"
|
|
(:start-time (2021 1 1 12 0) :range 43200)
|
|
=> ((:start-time (2021 1 1 12 0) :range 43200))
|
|
|
|
"24-hour range (day boundary)"
|
|
(:start-time (2021 1 1 0 0) :range 86400)
|
|
=> ((:start-time (2021 1 1 0 0) :range 86400))
|
|
|
|
"24-hour range (noon start)"
|
|
(:start-time (2021 1 1 12 0) :range 86400)
|
|
=> ((:start-time (2021 1 1 12 0) :range 43200)
|
|
(:start-time (2021 1 2 0 0) :range 43200))
|
|
|
|
"48-hour range (day boundary)"
|
|
(:start-time (2021 1 1 0 0) :range 172800)
|
|
=> ((:start-time (2021 1 1 0 0) :range 86400)
|
|
(:start-time (2021 1 2 0 0) :range 86400))
|
|
|
|
"48-hour range (noon start)"
|
|
(:start-time (2021 1 1 12 0) :range 172800)
|
|
=> ((:start-time (2021 1 1 12 0) :range 43200)
|
|
(:start-time (2021 1 2 0 0) :range 86400)
|
|
(:start-time (2021 1 3 0 0) :range 43200))
|
|
|
|
"zero range (short)"
|
|
(:start-time (2021 1 1) :range 0)
|
|
=> ((:start-time (2021 1 1) :range 0))
|
|
|
|
"1-hour range (short)"
|
|
(:start-time (2021 1 1) :range 3600)
|
|
=> ((:start-time (2021 1 1 0 0) :range 3600))
|
|
|
|
"24-hour range (short)"
|
|
(:start-time (2021 1 1) :range 86400)
|
|
=> ((:start-time (2021 1 1 0 0) :range 86400))
|
|
|
|
"48-hour range (short)"
|
|
(:start-time (2021 1 1) :range 172800)
|
|
=> ((:start-time (2021 1 1 0 0) :range 86400)
|
|
(:start-time (2021 1 2 0 0) :range 86400)))
|
|
|
|
(provide 'org-x-test-buffer-state)
|
|
;;; org-x-test-buffer-state.el ends here
|