Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
big_e_pi.t	395 B	-r--r--r--	2014-12-27 11:48
bigexp.t	527 B	-r--r--r--	2014-12-27 11:48
bigint.t	2.08 KB	-r--r--r--	2014-12-27 11:48
bignum.t	1.89 KB	-r--r--r--	2014-12-27 11:48
bigrat.t	1.71 KB	-r--r--r--	2014-12-27 11:48
bii_e_pi.t	323 B	-r--r--r--	2014-12-27 11:48
biinfnan.t	180 B	-r--r--r--	2014-12-27 11:48
bir_e_pi.t	483 B	-r--r--r--	2014-12-27 11:48
bn_lite.t	458 B	-r--r--r--	2014-12-27 11:49
bninfnan.t	180 B	-r--r--r--	2014-12-27 11:48
br_lite.t	461 B	-r--r--r--	2014-12-27 11:49
brinfnan.t	180 B	-r--r--r--	2014-12-27 11:48
in_effect.t	749 B	-r--r--r--	2014-12-27 11:48
infnan.inc	1.34 KB	-r--r--r--	2014-12-27 11:48
option_a.t	391 B	-r--r--r--	2014-12-27 11:48
option_l.t	1.18 KB	-r--r--r--	2014-12-27 11:49
option_p.t	307 B	-r--r--r--	2014-12-27 11:48
overrides.t	3.57 KB	-r--r--r--	2014-12-27 11:48
ratopt_a.t	462 B	-r--r--r--	2014-12-27 11:48
scope_f.t	859 B	-r--r--r--	2014-12-27 11:48
scope_i.t	891 B	-r--r--r--	2014-12-27 11:48
scope_r.t	859 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

# test the "l", "lib", "try" and "only" options:

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

use bignum;

my @W;
{
# catch warnings:
require Carp;
no warnings 'redefine';
*Carp::carp = sub { push @W, $_[0]; };
}

my $rc = eval ('bignum->import( "l" => "foo" );');
is ($@,'');						# shouldn't die
is (scalar @W, 1, 'one warning');
like ($W[0], qr/fallback to Math::/, 'got fallback');

$rc = eval ('bignum->import( "lib" => "foo" );');
is ($@,'');						# ditto
is (scalar @W, 2, 'two warnings');
like ($W[1], qr/fallback to Math::/, 'got fallback');

$rc = eval ('bignum->import( "try" => "foo" );');
is ($@,'');						# shouldn't die
$rc = eval ('bignum->import( "try" => "foo" );');
is ($@,'');						# ditto

$rc = eval ('bignum->import( "foo" => "bar" );');
like ($@, qr/^Unknown option foo/i, 'died');			# should die

$rc = eval ('bignum->import( "only" => "bar" );');
like ($@, qr/fallback disallowed/i, 'died');			# should die

# test that options are only lowercase (don't see a reason why allow UPPER)

foreach (qw/L LIB Lib T Trace TRACE V Version VERSION/)
  {
  $rc = eval ('bignum->import( "$_" => "bar" );');
  like ($@, qr/^Unknown option $_/i, 'died');			# should die
  }