1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#!perl
# test the "l", "lib", "try" and "only" options:
use strict;
use warnings;
use Test::More tests => 19;
use bignum;
my @WARNINGS;
{
# This hack is to catch warnings. Math::BigInt imports 'carp' from 'Carp',
# so we redefine it to catch the warnings.
*Math::BigInt::carp = sub { push @WARNINGS, $_[0]; };
}
my $rc;
$rc = eval { bignum->import( "l" => "foo" ) };
is($@, '', # shouldn't die
qq|eval { bignum->import( "l" => "foo" ) }|);
is(scalar(@WARNINGS), 1, 'one warning');
like($WARNINGS[0], qr/fallback to Math::/, 'got fallback');
$rc = eval { bignum->import( "lib" => "foo" ) };
is($@, '', # ditto
qq|eval { bignum->import( "lib" => "foo" ) }|);
is(scalar @WARNINGS, 2, 'two warnings');
like($WARNINGS[1], qr/fallback to Math::/, 'got fallback');
$rc = eval { bignum->import( "try" => "foo" ) };
is($@, '', # shouldn't die
qq|eval { bignum->import( "try" => "foo" ) }|);
$rc = eval { bignum->import( "try" => "foo" ) };
is($@, '', # ditto
qq|eval { bignum->import( "try" => "foo" ) }|);
$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
}
|
