lib/ExtUtils/t/MM_Any.t

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