| Server IP : 45.40.142.9 / Your IP : 216.73.216.66 Web Server : Apache System : Linux s45-40-142-9.secureserver.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : bayspec ( 506) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /.cpanm/work/1494616241.5243/ExtUtils-MakeMaker-7.24/t/ |
Upload File : |
#!/usr/bin/perl -w
BEGIN {
unshift @INC, 't/lib';
}
chdir 't';
use Test::More tests => 7;
BEGIN { use_ok('ExtUtils::MM') }
### OS Flavor methods
can_ok( 'MM', 'os_flavor', 'os_flavor_is' );
# Can't really know what the flavors are going to be, so we just
# make sure it returns something.
my @flavors = MM->os_flavor;
ok( @flavors, 'os_flavor() returned something' );
ok( MM->os_flavor_is($flavors[rand @flavors]),
'os_flavor_is() one flavor' );
ok( MM->os_flavor_is($flavors[rand @flavors], 'BogusOS'),
' many flavors' );
ok( !MM->os_flavor_is('BogusOS'), ' wrong flavor' );
ok( !MM->os_flavor_is(), ' no flavor' );