);
ok( maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is true' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST2, 'maybe->HAVE_MAYBE_TEST2 is true' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST3, 'maybe->HAVE_MAYBE_TEST3 is true' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
:Test1;
};
is( $@, '', 'use maybe::Test1 succeed' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
:Test2;
};
is( $@, '', 'use maybe::Test2 succeed' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
:Test3;
};
is( $@, '', 'use maybe::Test3 succeed' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
t1 123;
};
is( $@, '', 'use maybe::Test1 succeed' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
st2 123;
};
like( $@, qr/does not define/, 'use maybe::Test2 failed' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
t3 123;
};
is( $@, '', 'use maybe::Test3 succeed' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is true' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
);
ok( ! maybe->HAVE_MAYBE_TEST2, 'maybe->HAVE_MAYBE_TEST2 is false' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST3, 'maybe->HAVE_MAYBE_TEST3 is true' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is true' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST2, 'maybe->HAVE_MAYBE_TEST2 is true' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST3, 'maybe->HAVE_MAYBE_TEST3 is true' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
st1 ();
};
is( $@, '', 'use maybe::Test1 succeed' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
st2 ();
};
is( $@, '', 'use maybe::Test2 succeed' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
st3 ();
};
is( $@, '', 'use maybe::Test3 succeed' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
st1 666;
};
like( $@, qr/version 666 required/, 'use maybe::Test1 failed' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
st2 666;
};
like( $@, qr/does not define/, 'use maybe::Test2 failed' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
st3 666;
};
like( $@, qr/version 666 required/, 'use maybe::Test3 failed' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
);
ok( ! maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is false' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
);
ok( ! maybe->HAVE_MAYBE_TEST2, 'maybe->HAVE_MAYBE_TEST2 is false' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
);
ok( ! maybe->HAVE_MAYBE_TEST3, 'maybe->HAVE_MAYBE_TEST3 is false' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
tring';
};
is( $@, '', 'use maybe::Test1 succeed' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
tring';
};
is( $@, '', 'use maybe::Test2 succeed' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
tring';
};
is( $@, '', 'use maybe::Test3 succeed' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is true' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST2, 'maybe->HAVE_MAYBE_TEST2 is true' );
isnt( $INC{'maybe/Test2.pm'}, undef, '%INC for maybe/Test2.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST3, 'maybe->HAVE_MAYBE_TEST3 is true' );
isnt( $INC{'maybe/Test3.pm'}, undef, '%INC for maybe/Test3.pm is set' );
is( maybe
);
ok( maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is true' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe
ef;
};
is( $@, '', 'use maybe "maybe::Test1" succeed' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe::Te
);
ok( maybe->HAVE_MAYBE_TEST1, 'maybe->HAVE_MAYBE_TEST1 is true' );
isnt( $INC{'maybe/Test1.pm'}, undef, '%INC for maybe/Test1.pm is set' );
is( maybe