perl-Test-MockDateTime

Getting the current time sometimes is not very helpful for testing
scenarios. Instead, if you could obtain a known value during the runtime of
a testcase will make your results predictable.
Why another Date Mocker? I wanted something simple with a very concise
usage pattern and a mocked date should only exist and stay constant inside
a scope. After leaving the scope the current time should be back. This lead
to this tiny module.
This simple module allows faking a given date and time for the runtime of a
subsequent code block. By default the 'on' keyword is exported into the
namespace of the test file. The date to get mocked must be in a format that
is recognized by DateTime::Format::DateParse.
on '2013-01-02 03:04:05', sub { ... };


is basically the same as
{
    my $now = DateTime::Format::DateParse->parse_datetime(
        '2013-01-02 03:04:05'
    );

    local *DateTime::now = sub { $now->clone };

    ... everything from code block above
}


A drawback when relying on this module is that you must know that the
module you are testing uses 'DateTime->now' to obtain the current time.
=cut

          

---

License: Artistic-1.0 or GPL-1.0+
URL: http://search.cpan.org/dist/Test-MockDateTime/