ext/ExtUtils-MakeMaker/t/MM_Any.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     unshift @INC, 't/lib';
   5 }
   6 chdir 't';
   7
   8 use Test::More tests => 7;
   9 BEGIN { use_ok('ExtUtils::MM') }
  10
  11
  12 ### OS Flavor methods
  13
  14 can_ok( 'MM', 'os_flavor', 'os_flavor_is' );
  15
  16 # Can't really know what the flavors are going to be, so we just
  17 # make sure it returns something.
  18 my @flavors = MM->os_flavor;
  19 ok( @flavors,   'os_flavor() returned something' );
  20
  21 ok( MM->os_flavor_is($flavors[rand @flavors]),
  22                                           'os_flavor_is() one flavor' );
  23 ok( MM->os_flavor_is($flavors[rand @flavors], 'BogusOS'),
  24                                           '    many flavors' );
  25 ok( !MM->os_flavor_is('BogusOS'),        '    wrong flavor' );
  26 ok( !MM->os_flavor_is(),                 '    no flavor' );
  27