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
|
# -*- mode: perl; -*-
# test the "l", "lib", "try" and "only" options:
use strict;
use warnings;
use Test::More tests => 21;
use bigint;
# Catch warnings.
my $WARNINGS;
local $SIG{__WARN__} = sub {
$WARNINGS = $_[0];
};
my $rc;
$WARNINGS = "";
$rc = eval { bigint -> import("l" => "foo") };
is($@, '',
qq|eval { bigint -> import("l" => "foo") }|);
is($WARNINGS, "", "no warnings");
$WARNINGS = "";
$rc = eval { bigint -> import("lib" => "foo") };
is($@, '',
qq|eval { bigint -> import("lib" => "foo") }|);
is($WARNINGS, "", "no warnings");
$WARNINGS = "";
$rc = eval { bigint -> import("try" => "foo") };
is($@, '',
qq|eval { bigint -> import("try" => "foo") }|);
is($WARNINGS, "", "no warnings");
$WARNINGS = "";
$rc = eval { bigint -> import("try" => "foo") };
is($@, '',
qq|eval { bigint -> import("try" => "foo") }|);
is($WARNINGS, "", "no warnings");
$WARNINGS = "";
$rc = eval { bigint -> import("foo" => "bar") };
like($@, qr/^Unknown option/,
qq|eval { bigint -> import("foo" => "bar") }|);
is($WARNINGS, "", "no warnings");
$WARNINGS = "";
$rc = eval { bigint -> import("only" => "bar") };
is($@, "",
qq|eval { bigint -> import("only" => "bar") }|);
is($WARNINGS, "", "no warnings");
# 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 { bigint -> import($_ => "bar") };
like($@, qr/^Unknown option/i, # should die
qq|eval { bigint -> import($_ => "bar") }|);
}
|
