perlquestion
jaldhar
<p>Normally when I test an application that makes use of times, I turn to [cpan://Test::MockTime] which works wonderfully for setting Perls notions of the current time to arbitrary values. In this app, however it doesn't work because the database has the following fields:</p>
<code>
created TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
</code>
<p>and...</p>
<code>
CREATE TRIGGER IF NOT EXISTS update_modification_time
AFTER UPDATE OF title, body ON items
FOR EACH ROW BEGIN
UPDATE items SET modified = DATETIME('NOW') WHERE id = new.id;
END;
</code>
<p>Modules like [cpan://Test::MockTime] work by intercepting Perls time related functions but here the time is being set by the SQLite library (calling down to libc functions no doubt) and so this approach does not work. I can think of two possible alternatives:</p>
<p>There are C preload libraries like [http://www.code-wizards.com/projects/libfaketime/|faketime] which intercept C library time functions. Can something like that be used from within a Perl script?</p>
<p>[cpan://DBD::SQlite] lets you use <code>sqlite_create_function</code>. Could this be used to override SQLites time related functions? If so which ones?</p>
<p>Comments welcome on whether either of these ideas are feasable or if there are better solutions.<p>
<div class="pmsig"><div class="pmsig-25823">
<p>-- <br>જલધર</p>
</div></div>