4 if( $ENV{PERL_CORE} ) {
14 use Test::More tests => 7;
15 BEGIN { use_ok('ExtUtils::MM') }
20 can_ok( 'MM', 'os_flavor', 'os_flavor_is' );
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' );
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'),
31 ok( !MM->os_flavor_is('BogusOS'), ' wrong flavor' );
32 ok( !MM->os_flavor_is(), ' no flavor' );