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