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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
use strict;
use warnings;
use Test::More tests => 41;
use Data::Printer::Theme;
test_basic_load();
test_invalid_load();
test_color_override();
test_invalid_colors();
test_color_level_downgrade();
exit;
sub test_invalid_colors {
my @invalids = (
{},
'rgb(256,255,255)',
'rgb(255,256,255)',
'rgb(255,255,256)',
'rgb(-1,0,0)',
'rgb(0,-1,0)',
'rgb(0,0,-1)',
'#AABBCCDD',
'#eeffgg',
'green on_some_bizarre_color',
'another_weird_color',
);
my $i = 0;
require Data::Printer::Common;
no warnings 'redefine';
*Data::Printer::Common::_warn = sub {
my (undef, $message) = @_;
like $message, qr/invalid color/, "invalid color '$invalids[$i]'";
};
while ($i < @invalids) {
my $theme = Data::Printer::Theme->new(
name => 'Material',
color_overrides => { string => $invalids[$i] },
color_level => 3,
);
$i++;
}
}
sub test_color_override {
ok my $theme = Data::Printer::Theme->new(
name => 'Material',
color_level => 3,
color_overrides => {
array => 'rgb(55,100,80)',
hash => '#B2CCD6',
string => "\e[0;38;2m",
number => 'bright_green on_yellow',
empty => '',
}
), 'able to load theme with customization';
is $theme->name, 'Material', 'customized theme keeps its name';
is $theme->customized, 1, 'customized flag is set';
is $theme->color_for('array'), 'rgb(55,100,80)', 'custom color for array';
is $theme->color_for('hash'), '#B2CCD6', 'custom color for hash';
is $theme->color_for('string'), "\e[0;38;2m", 'custom color for string';
is $theme->color_for('number'), 'bright_green on_yellow', 'custom color for number';
is $theme->sgr_color_for('this is an invalid tag'), undef, 'invalid tag';
is $theme->sgr_color_for('empty'), '', 'empty tag';
my $sgr = $theme->sgr_color_for('array');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[0;38;2;55;100;80m', 'custom SGR for array';
$sgr = $theme->sgr_color_for('hash');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[0;38;2;178;204;214m', 'custom SGR for hash';
$sgr = $theme->sgr_color_for('string');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[0;38;2m', 'custom SGR for string';
$sgr = $theme->sgr_color_for('number');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[92;43m', 'custom SGR for number';
$sgr = $theme->sgr_color_for('class');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[0;38;2;199;146;234m', 'original SGR for class color unchanged';
}
sub test_basic_load {
ok my $theme = Data::Printer::Theme->new(
name => 'Material',
color_level => 3,
), 'able to load default theme';
isa_ok $theme, 'Data::Printer::Theme';
can_ok $theme, qw(new name customized color_reset color_for sgr_color_for);
is $theme->name, 'Material', 'got the right theme';
is $theme->customized, 0, 'customized flag not set';
is $theme->color_for('array'), '#A1BBC5', 'fetched original color';
my $sgr = $theme->sgr_color_for('array');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[0;38;2;161;187;197m', 'fetched SGR variant for array color';
$sgr = $theme->sgr_color_for('class');
$sgr =~ s{\e}{\\e};
is $sgr, '\e[0;38;2;199;146;234m', 'fetched SGR variant for class color';
$theme = Data::Printer::Theme->new(name => 'Monokai', color_level => 3);
is $theme->name, 'Monokai', 'able to load Monokai theme';
$theme = Data::Printer::Theme->new(name => 'Solarized', color_level => 3);
is $theme->name, 'Solarized', 'able to load Solarized theme';
$theme = Data::Printer::Theme->new(name => 'Classic', color_level => 3);
is $theme->name, 'Classic', 'able to load Classic theme';
}
package
Data::Printer::Theme::InvalidTheme;
sub colors { return [] }
package main;
sub test_invalid_load {
my $warning;
require Data::Printer::Common;
no warnings 'redefine';
*Data::Printer::Common::_warn = sub { (undef, $warning) = @_ };
my $theme = Data::Printer::Theme->new(
name => 'InvalidTheme',
color_level => 3,
);
is_deeply(
$theme,
{ colors => {}, sgr_colors => {}, color_level => 3 },
'unknown theme loads no colors'
);
like($warning, qr/error loading theme 'InvalidTheme'/, 'got right warning message (1)');
undef $warning;
undef $theme;
$INC{'Data/Printer/Theme/InvalidTheme.pm'} = 'mock loaded, make use/require pass';
$theme = Data::Printer::Theme->new(
name => 'InvalidTheme',
color_level => 3,
);
is_deeply $theme, {
color_level => 3,
colors => {},
sgr_colors => {}
}, 'invalid theme loads no colors';
like($warning, qr/error loading theme 'InvalidTheme'/, 'got right warning message (2)');
}
sub test_color_level_downgrade {
my $theme = Data::Printer::Theme->new(
name => 'Material',
color_level => 2,
);
my $reduced = Data::Printer::Theme::_rgb2short(0x79,0x86,0xcb);
is $reduced, 104, '(r,g,b) downgrade to 256 colors';
}
|
