1#!/usr/bin/perl -w 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 chdir 't' if -d 't'; 6 @INC = '../lib'; 7 } 8 else { 9 unshift @INC, 't/lib'; 10 } 11} 12chdir 't'; 13 14use Test::More tests => 7; 15BEGIN { use_ok('ExtUtils::MM') } 16 17 18### OS Flavor methods 19 20can_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. 24my @flavors = MM->os_flavor; 25ok( @flavors, 'os_flavor() returned something' ); 26 27ok( MM->os_flavor_is($flavors[rand @flavors]), 28 'os_flavor_is() one flavor' ); 29ok( MM->os_flavor_is($flavors[rand @flavors], 'BogusOS'), 30 ' many flavors' ); 31ok( !MM->os_flavor_is('BogusOS'), ' wrong flavor' ); 32ok( !MM->os_flavor_is(), ' no flavor' ); 33 34