1N/A#!/usr/bin/perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A }
1N/A else {
1N/A unshift @INC, 't/lib';
1N/A }
1N/A}
1N/Achdir 't';
1N/A
1N/Ause Test::More tests => 7;
1N/ABEGIN { use_ok('ExtUtils::MM') }
1N/A
1N/A
1N/A### OS Flavor methods
1N/A
1N/Acan_ok( 'MM', 'os_flavor', 'os_flavor_is' );
1N/A
1N/A# Can't really know what the flavors are going to be, so we just
1N/A# make sure it returns something.
1N/Amy @flavors = MM->os_flavor;
1N/Aok( @flavors, 'os_flavor() returned something' );
1N/A
1N/Aok( MM->os_flavor_is($flavors[rand @flavors]),
1N/A 'os_flavor_is() one flavor' );
1N/Aok( MM->os_flavor_is($flavors[rand @flavors], 'BogusOS'),
1N/A ' many flavors' );
1N/Aok( !MM->os_flavor_is('BogusOS'), ' wrong flavor' );
1N/Aok( !MM->os_flavor_is(), ' no flavor' );
1N/A