1#!perl
2
3# check that using Math::BigFloat with "with" and "lib" at the same time works
4# broken in versions up to v1.63
5
6use strict;
7use warnings;
8
9use lib 't';
10
11use Test::More tests => 2;
12
13# the replacement lib can handle the lib statement, but it could also ignore it
14# completely, for instance, when it is a 100% replacement for Math::BigInt, but
15# doesn't know the concept of alternative libs. But it still needs to cope with
16# "lib => ". SubClass does record it, so we test here essential if
17# Math::BigFloat hands the lib properly down, any more is outside out testing
18# reach.
19
20use Math::BigFloat with => 'Math::BigInt::Subclass',
21                   lib  => 'BareCalc';
22
23is(Math::BigFloat->config("with"), 'Math::BigInt::BareCalc',
24   'Math::BigFloat->config("with")');
25
26# is($Math::BigInt::Subclass::lib, 'BareCalc');
27
28# it never arrives here, but that is a design decision in SubClass
29is(Math::BigInt->config("lib"), 'Math::BigInt::BareCalc',
30   'Math::BigInt->config("lib")');
31
32# all tests done
33