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