1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/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' );
|
