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