1use strict;
2use warnings;
3
4use Test::More 0.88;
5use Module::Reader qw(:all);
6
7my $mod_content = do {
8    open my $fh, '<', 't/lib/TestLib.pm';
9    local $/;
10    <$fh>;
11};
12
13{
14    local @INC = @INC;
15    unshift @INC, 't/lib';
16    is module_content('TestLib'), $mod_content, 'correctly load module from disk';
17}
18
19done_testing;
20