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