Commit | Line | Data |
dedf98bc |
1 | #!/usr/bin/perl -w |
2 | |
3 | BEGIN { |
b78fd716 |
4 | unshift @INC, 't/lib'; |
dedf98bc |
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 | |