xref: /openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/MM_Any.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
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