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 if !$ENV{AUTHOR_TESTS}, 'Test::More' => skip_all => 'Author tests';
use Test::More;
eval "use YAML 0.35";
plan skip_all => "YAML 0.35 required for testing META.yml" if $@;
eval "use Module::Info";
plan skip_all => "Module::Info required for testing META.yml" if $@;
plan skip_all => "Run disttest to see the result of this test"
    unless -f 'META.yml';

plan 'tests' => 2;

my $meta = YAML::LoadFile( 'META.yml' );
my $wx = Module::Info->new_from_file( 'Wx.pm' );

is( $meta->{version}, $wx->version, 'META.yml == Wx.pm' );
like( $meta->{generated_by}, qr/MY_Metafile/, 'Generated by MY_Metafile' );