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
|
use Test2::Tools::Basic;
use Test2::Util::Table qw/table/;
# Nothing in the tables in this file should result in a table wider than 80
# characters, so this is an optimization.
BEGIN { $ENV{TABLE_TERM_SIZE} = 80 }
use Test2::Util qw/CAN_FORK CAN_REALLY_FORK CAN_THREAD/;
diag "\nDIAGNOSTICS INFO IN CASE OF FAILURE:\n";
diag(join "\n", table(rows => [[ 'perl', $] ]]));
diag(
join "\n",
table(
header => [qw/CAPABILITY SUPPORTED/],
rows => [
['CAN_FORK', CAN_FORK ? 'Yes' : 'No'],
['CAN_REALLY_FORK', CAN_REALLY_FORK ? 'Yes' : 'No'],
['CAN_THREAD', CAN_THREAD ? 'Yes' : 'No'],
],
)
);
{
my @depends = qw{
Test2 Importer Term::Table Sub::Info B Carp Exporter Scalar::Util
Scope::Guard Time::HiRes overload utf8 Module::Pluggable
};
my @rows;
for my $mod (sort @depends) {
my $installed = eval "require $mod; $mod->VERSION";
push @rows => [ $mod, $installed || "N/A" ];
}
my @table = table(
header => [ 'DEPENDENCY', 'VERSION' ],
rows => \@rows,
);
diag(join "\n", @table);
}
{
my @options = qw{
Sub::Name Term::ReadKey Term::Size::Any Unicode::GCString
Unicode::LineBreak
};
my @rows;
for my $mod (sort @options) {
my $installed = eval "require $mod; $mod->VERSION";
push @rows => [ $mod, $installed || "N/A" ];
}
my @table = table(
header => [ 'OPTIONAL', 'VERSION' ],
rows => \@rows,
);
diag(join "\n", @table);
}
pass;
done_testing;
|
