1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 2208            # tests in require'd file
7                         + 2;           # tests in this file
8
9use Math::BigInt upgrade => 'Math::BigFloat';
10use Math::BigFloat;
11
12our ($CLASS, $EXPECTED_CLASS, $LIB);
13$CLASS          = "Math::BigInt";
14$EXPECTED_CLASS = "Math::BigFloat";
15$LIB            = "Math::BigInt::Calc";         # backend
16
17is(Math::BigInt->upgrade(), "Math::BigFloat",
18   qq/Math::BigInt->upgrade()/);
19is(Math::BigInt->downgrade() || "", "",
20   qq/Math::BigInt->downgrade() || ""/);
21
22require './t/upgrade.inc';      # all tests here for sharing
23