dist/Math-BigInt/t/sub_ali.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl -w

# test that the new alias names work

use strict;
use Test::More tests => 6;

BEGIN { unshift @INC, 't'; }

use Math::BigInt::Subclass;

use vars qw/$CL $x/;
$CL = 'Math::BigInt::Subclass';

require 't/alias.inc';