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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
use strict;
use warnings;
# 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 File::Spec;
use Test2::Tools::Basic;
use Test2::Util::Table qw/table/;
use Test2::Util qw/CAN_FORK CAN_REALLY_FORK CAN_THREAD/;
my $exit = 0;
END{ $? = $exit }
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{
B
Carp
Exporter
File::Spec
File::Temp
PerlIO
Scalar::Util
Storable
Term::Table
Test2
Time::HiRes
overload
threads
utf8
};
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{
Module::Pluggable
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;
|
