git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/t/zz_distrib.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use if !$ENV{AUTHOR_TESTS}, 'Test::More' => skip_all => 'Author tests';
   5 use Test::More;
   6 eval "use YAML 0.35";
   7 plan skip_all => "YAML 0.35 required for testing META.yml" if $@;
   8 eval "use Module::Info";
   9 plan skip_all => "Module::Info required for testing META.yml" if $@;
  10 plan skip_all => "Run disttest to see the result of this test"
  11     unless -f 'META.yml';
  12
  13 plan 'tests' => 2;
  14
  15 my $meta = YAML::LoadFile( 'META.yml' );
  16 my $wx = Module::Info->new_from_file( 'Wx.pm' );
  17
  18 is( $meta->{version}, $wx->version, 'META.yml == Wx.pm' );
  19 like( $meta->{generated_by}, qr/MY_Metafile/, 'Generated by MY_Metafile' );