diff options
| -rw-r--r-- | tests/test-integration-recurring-events.el | 4 | ||||
| -rw-r--r-- | tests/test-video-audio-recording-process-sentinel.el | 12 |
2 files changed, 10 insertions, 6 deletions
diff --git a/tests/test-integration-recurring-events.el b/tests/test-integration-recurring-events.el index 4629e6ef..3cae1a20 100644 --- a/tests/test-integration-recurring-events.el +++ b/tests/test-integration-recurring-events.el @@ -112,8 +112,8 @@ Validates: (insert org-output) (goto-char (point-min)) (how-many "^\\* GTFO")))) - (should (> gtfo-count 40)) ; ~52 weeks in a year - (should (< gtfo-count 60))) + (should (> gtfo-count 55)) ; ~65 weeks in 15-month window + (should (< gtfo-count 75))) ;; Should have properly formatted Saturday timestamps (should (string-match-p "<[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} Sat 10:30-11:00>" org-output))) diff --git a/tests/test-video-audio-recording-process-sentinel.el b/tests/test-video-audio-recording-process-sentinel.el index 37a7f94d..92fb3f0d 100644 --- a/tests/test-video-audio-recording-process-sentinel.el +++ b/tests/test-video-audio-recording-process-sentinel.el @@ -79,8 +79,10 @@ (let ((fake-process (make-process :name "test-audio" :command '("sh" "-c" "exit 0"))) (update-called nil)) (setq cj/audio-recording-ffmpeg-process fake-process) - ;; Mock force-mode-line-update to track if it's called - (cl-letf (((symbol-function 'force-mode-line-update) + ;; Mock process-status to return 'exit and force-mode-line-update to track call + (cl-letf (((symbol-function 'process-status) + (lambda (_proc) 'exit)) + ((symbol-function 'force-mode-line-update) (lambda (&optional _all) (setq update-called t)))) (cj/recording-process-sentinel fake-process "finished\n") (should update-called))) @@ -124,8 +126,10 @@ (let ((fake-process (make-process :name "test-audio" :command '("sh" "-c" "exit 0"))) (message-text nil)) (setq cj/audio-recording-ffmpeg-process fake-process) - ;; Mock message to capture output - (cl-letf (((symbol-function 'message) + ;; Mock process-status to return 'exit and message to capture output + (cl-letf (((symbol-function 'process-status) + (lambda (_proc) 'exit)) + ((symbol-function 'message) (lambda (fmt &rest args) (setq message-text (apply #'format fmt args))))) (cj/recording-process-sentinel fake-process " finished \n") ;; Message should contain trimmed event |