NAME

VERSION

SYNOPSIS

    use Test::More;
    use Test::MockDateTime;
    use DateTime;
    
    on '2013-01-02 03:04:05' => sub {
        # inside this block all calls to DateTime::now 
        # will report a mocked date.
        
        my $now = DateTime->now;
        is $now->ymd, '2013-01-02', 'occured now';
    };
    
    done_testing;

DESCRIPTION

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.

FUNCTIONS

CAVEATS

SEE ALSO

Test::MockTime

Very universal, overwrites several subs at compile time and allows to set a fixed or ticking time at any place in your code.

Time::Mock

Also allows to set a time at various places inside your code.

Test::MockTime::DateCalc

Mocks serveral Date::Calc functions.

Time::Fake

Also overwrites several subs at compile time.

AUTHOR

LICENSE