view release on metacpan or  search on metacpan

t/lib/App/Rssfilter/Feed/Storage/Test/LastModifiedComesFromFile.pm  view on Meta::CPAN

use strict;
use warnings;

package App::Rssfilter::Feed::Storage::Test::LastModifiedComesFromFile;

use Test::Routine;
use Test::More;
use namespace::autoclean;
use Method::Signatures;

requires 'feed_storage';
requires 'tempfile';

test last_modified_comes_from_file => method {

    use HTTP::Date;
    is(
        $self->feed_storage->last_modified,
        time2str( $self->tempfile->stat->mtime ),
        'last_modified returns the last time the underlying file was modified'
    );
};

1;