The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 6;

BEGIN {
    $ENV{MOD_PERL} = 'mod_perl/1.29';
    $INC{'Apache.pm'} = 1;
    require ModPerl::VersionUtil;
}

ok(ModPerl::VersionUtil->is_mp);
ok(ModPerl::VersionUtil->is_mp1);
ok(!ModPerl::VersionUtil->is_mp19);
ok(!ModPerl::VersionUtil->is_mp2);
is(ModPerl::VersionUtil->mp_version_string, '1.29');
is(ModPerl::VersionUtil->mp_version, 1.29);