#!perl # check that using Math::BigFloat with "with" and "lib" at the same time works # broken in versions up to v1.63 use strict; use warnings; use lib 't'; use Test::More tests => 2; # the replacement lib can handle the lib statement, but it could also ignore it # completely, for instance, when it is a 100% replacement for Math::BigInt, but # doesn't know the concept of alternative libs. But it still needs to cope with # "lib => ". SubClass does record it, so we test here essential if # Math::BigFloat hands the lib properly down, any more is outside out testing # reach. use Math::BigFloat with => 'Math::BigInt::Subclass', lib => 'BareCalc'; is(Math::BigFloat->config("with"), 'Math::BigInt::BareCalc', 'Math::BigFloat->config("with")'); # is($Math::BigInt::Subclass::lib, 'BareCalc'); # it never arrives here, but that is a design decision in SubClass is(Math::BigInt->config("lib"), 'Math::BigInt::BareCalc', 'Math::BigInt->config("lib")'); # all tests done