xref: /openbsd-src/gnu/usr.bin/perl/cpan/Math-BigInt/t/with_sub.t (revision eac174f2741a08d8deb8aae59a7f778ef9b5d770) 
1*eac174f2Safresh1# -*- mode: perl; -*-
2b8851fccSafresh1
3b8851fccSafresh1# Test use Math::BigFloat with => 'Math::BigInt::SomeSubclass';
4b8851fccSafresh1
5b8851fccSafresh1use strict;
6b8851fccSafresh1use warnings;
7b8851fccSafresh1
8*eac174f2Safresh1use Test::More tests => 3070            # tests in require'd file
9b8851fccSafresh1                         + 1;           # tests in this file
10b8851fccSafresh1
11b8851fccSafresh1use Math::BigFloat with => 'Math::BigInt::Subclass',
12b8851fccSafresh1                   lib  => 'Calc';
13b8851fccSafresh1
14b46d8ef2Safresh1our ($CLASS, $LIB);
15b8851fccSafresh1$CLASS = "Math::BigFloat";
16b46d8ef2Safresh1$LIB   = "Math::BigInt::Calc";          # backend
17b8851fccSafresh1
189f11ffb7Safresh1# the "with" argument should be ignored
19b46d8ef2Safresh1is(Math::BigFloat->config("with"), 'Math::BigInt::Calc',
20b46d8ef2Safresh1   qq|Math::BigFloat->config("with")|);
21b8851fccSafresh1
22b46d8ef2Safresh1require './t/bigfltpm.inc';     # all tests here for sharing
23