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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
# -*- mode: perl; -*-
# test the "l", "lib", "try" and "only" options:
use strict;
use warnings;
use Test::More tests => 14;
use bigfloat;
# Catch warning.
my $warning;
local $SIG{__WARN__} = sub {
$warning = $_[0];
};
my $rc;
$warning = "";
$rc = eval { bigfloat->import("l" => "foo") };
subtest qq|eval { bigfloat->import("l" => "foo") }| => sub {
plan tests => 2;
is($@, '', "didn't die");
is($warning, "", "didn't get a warning");
};
$warning = "";
$rc = eval { bigfloat->import("lib" => "foo") };
subtest qq|eval { bigfloat->import("lib" => "foo") }| => sub {
plan tests => 2;
is($@, '', "didn't die");
is($warning, "", "didn't get a warning");
};
$warning = "";
$rc = eval { bigfloat->import("try" => "foo") };
subtest qq|eval { bigfloat->import("try" => "foo") }| => sub {
plan tests => 2;
is($@, '', "didn't die");
is($warning, "", "didn't get a warning");
};
$warning = "";
$rc = eval { bigfloat->import("only" => "foo") };
subtest qq|eval { bigfloat->import("only" => "foo") }| => sub {
plan tests => 2;
is($@, '', "didn't die");
is($warning, "", "didn't get a warning");
};
$warning = "";
$rc = eval { bigfloat->import("foo" => "bar") };
subtest qq|eval { bigfloat->import("foo" => "bar") }| => sub {
plan tests => 2;
is($@, '', "didn't die");
is($warning, "", "didn't get a warning");
};
# 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 { bigfloat->import($_ => "bar") };
like($@, qr/^Unknown option /i,
qq|eval { bigfloat->import($_ => "bar") }|);
}
|
