my
$t
= dztest();
my
$ini
= simple_ini(
{
name
=>
'E'
},
[
'Bootstrap::lib'
,
{
':version'
=>
'0.04000000'
,
try_built
=> 1,
fallback
=> 0,
}
],
[
'Bootstrap::ShareDir::Dist'
, {
try_built
=> 1,
fallback
=> 0 } ],
[
'=E'
],
);
my
$epm
=
<<'EOF';
use strict;
use warnings;
package E;
use File::ShareDir qw( dist_file );
use Path::Tiny qw( path );
sub register_component {}
our $content = path( dist_file( 'E', 'example.txt' ) )->slurp;
1;
EOF
$t
->add_file(
'dist.ini'
=>
$ini
);
$t
->add_file(
'E-0.01/dist.ini'
=>
$ini
);
$t
->add_file(
'share/example.txt'
,
q[ ]
);
$t
->add_file(
'lib/E.pm'
,
$epm
);
$t
->add_file(
'E-0.01/lib/E.pm'
,
$epm
);
$t
->add_file(
'E-0.01/share/example.txt'
,
q[ ]
);
$t
->build_ok;
done_testing;