Re: How to debug functions depending on (current-time)?

["Pascal J. Bourguignon" <pjb@informatimago.com>]

Marcin Borkowski <mbork@mbork.pl> writes:

> Hi all,
>
> I have a bunch of functions depending on (current-time), and I'm
> wondering how to test/debug them.  Is it safe to (temporarily) redefine
> `current-time'?  Maybe it's better to do that in a separate Emacs
> instance?  I could of course change their source code for the time of
> debugging, but this still lefts the problem of testing (esp. automatic
> testing) open.

Any problem in programming can be solved by one more level of
indirection.


(defvar *my-current-time-function* 'current-time)
(defun my-current-time-function () (funcall *my-current-time-function*))

(defvar *test-time* 0)
(when testing
  (let ((*my-current-time-function* (lambda () (incf *test-time*))))
    (test)))

-- 
__Pascal Bourguignon__                 http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk