*scratch*.el

(cl-defun imalison:org-at-time (&optional time &key (fn 'org-wild-notifier-check))
  (interactive)
  (setq time (or time (time-convert (encode-time (parse-time-string (org-read-date))) 'list)))
  (flet
      ((current-time (&rest args) time))
    (funcall fn)))

(imalison:org-at-time
 nil
 :fn (lambda ()
       (-each
           (->> (funcall (org-wild-notifier--retrieve-events))
                (-map 'org-wild-notifier--check-event)
                (-flatten)
                (-uniq))
         'org-wild-notifier--notify)))