Group
Extension

Devel-CheckOS/t/import-fatal.t

use strict;
$^W = 1;

use Test::More;

use Devel::CheckOS ':fatal';

use File::Spec;
use lib File::Spec->catdir(qw(t lib));

eval { die_if_os_isnt('AnOperatingSystem') };
ok(!$@, "die_if_os_isnt imported");
eval { die_if_os_is('AnOperatingSystem') };
ok($@ =~ /OS unsupported/i, "die_if_os_is imported");

done_testing;


Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.