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
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use String::Tagged::Terminal;
# unformatted
{
my $st = String::Tagged::Terminal->new
->append( "Hello, world!" );
is( $st->build_terminal, "Hello, world!",
'->build_terminal on unformatted' );
}
# simple boolean attribute formatting
{
my $st = String::Tagged::Terminal->new
->append( "A " )
->append_tagged( "bold", bold => 1 )
->append( " string" );
is( $st->build_terminal, "A \e[1mbold\e[m string",
'->build_terminal on bold' );
$st = String::Tagged::Terminal->new
->append( "An " )
->append_tagged( "underlined", under => 1 )
->append( " string" );
is( $st->build_terminal, "An \e[4munderlined\e[m string",
'->build_terminal on under' );
}
# Altfont attribute
{
my $st = String::Tagged::Terminal->new
->append( "Some " )
->append_tagged( "fixedwidth", altfont => 1 )
->append( " and " )
->append_tagged( "fancy", altfont => 2 )
->append( " formatting" );
is( $st->build_terminal, "Some \e[11mfixedwidth\e[m and \e[12mfancy\e[m formatting",
'->build_terminal on altfont' );
}
# Colours
{
my $st = String::Tagged::Terminal->new
->append( "With " )
->append_tagged( "colour", fgindex => 1 );
is( $st->build_terminal, "With \e[31mcolour\e[m",
'->build_terminal on VGA8 colour' );
$st = String::Tagged::Terminal->new
->append( "With " )
->append_tagged( "hi-colour", fgindex => 10 );
is( $st->build_terminal, "With \e[92mhi-colour\e[m",
'->build_terminal on Hi16 colour' );
$st = String::Tagged::Terminal->new
->append( "With " )
->append_tagged( "palette colour", fgindex => 50 );
is( $st->build_terminal, "With \e[38:5:50mpalette colour\e[m",
'->build_terminal on xterm256 colour' );
$st = String::Tagged::Terminal->new
->append( "With " )
->append_tagged( "noninteger", fgindex => 3.14159 );
is( $st->build_terminal, "With \e[33mnoninteger\e[m",
'->build_terminal rounds to integer' );
}
# sizepos
{
my $st = String::Tagged::Terminal->new
->append( "baseline" )
->append_tagged( "below", sizepos => "sub" )
->append_tagged( "above", sizepos => "super" );
is( $st->build_terminal, "baseline\e[74mbelow\e[73mabove\e[m",
'->build_terminal with sizepos' );
}
# link
{
my $st = String::Tagged::Terminal->new
->append( "Click " )
->append_tagged( "here", link => { uri => "scheme://host/path" } );
is( $st->build_terminal, "Click \e]8;;scheme://host/path\e\\here\e]8;;\e\\",
'->build_terminal with link' );
}
# Trailing format gets reset
{
my $st = String::Tagged::Terminal->new
->append( "Has trailing " )
->append_tagged( "formatting", italic => 1 );
is( $st->build_terminal, "Has trailing \e[3mformatting\e[m",
'Trailing formatting is reset' );
}
# Neighbouring colours can be swapped
{
my $st = String::Tagged::Terminal->new
->append_tagged( "R", fgindex => 1 )
->append_tagged( "G", fgindex => 2 )
->append_tagged( "B", fgindex => 4 );
is( $st->build_terminal, "\e[31mR\e[32mG\e[34mB\e[m",
'Neighbouring colour tags behave' );
}
# no_color
{
my $st = String::Tagged::Terminal->new( "abcde" );
$st->apply_tag( 0, 3, under => 1 );
$st->apply_tag( 2, 3, fgindex => 2 );
is( $st->build_terminal( no_color => 1 ), "\e[4mabc\e[mde",
'no_color option surpresses fgindex but not under' );
}
done_testing;
|
