The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w

use strict;
use lib 't/lib';
use MBTest;
use CPAN::Meta 2.110420;
use CPAN::Meta::YAML;
use Parse::CPAN::Meta 1.4401;
plan tests => 4;

blib_load('Module::Build');

my $tmp = MBTest->tmpdir;

use DistGen;
my $dist = DistGen->new( dir => $tmp );
$dist->change_file('Build.PL', <<"---");
use strict;
use Module::Build;

my \$builder = Module::Build->new(
  module_name => '$dist->{name}',
  license => 'perl',
  requires => {
    'File::Spec' => 0,
  },
  test_requires => {
    'Test::More' => 0,
  }
);

\$builder->create_build_script();
---
$dist->regen;
$dist->chdir_in;
$dist->run_build_pl;
my $output = stdout_stderr_of sub { $dist->run_build('distmeta') };

for my $file ( qw/MYMETA META/ ) {
    my $meta = Parse::CPAN::Meta->load_file($file.".json");
    is_deeply($meta->{prereqs}->{runtime},{
        requires => {
            'File::Spec' => '0',
        }
    }, "runtime prereqs in $file");
    is_deeply($meta->{prereqs}->{test},{
        requires => {
            'Test::More' => '0',
        }
    }, "test prereqs in $file");
}