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
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use String::Tagged;
my $str = String::Tagged->new( "Hello, world" );
$str->apply_tag( 1, 1, e => 1 );
$str->apply_tag( -1, -1, message => 1 );
my @tags;
sub fetch_tags
{
my ( $start, $len, %tags ) = @_;
push @tags, [ $start, $len, map { $_ => $tags{$_} } sort keys %tags ]
}
$str->iter_tags_nooverlap( \&fetch_tags );
is( \@tags,
[
[ 0, 1, message => 1 ],
[ 1, 1, e => 1, message => 1 ],
[ 2, 10, message => 1 ],
],
'tags list initially' );
$str->set_substr( 7, 5, "planet" );
undef @tags;
$str->iter_tags_nooverlap( \&fetch_tags );
is( \@tags,
[
[ 0, 1, message => 1 ],
[ 1, 1, e => 1, message => 1 ],
[ 2, 11, message => 1 ],
],
'tags list after first substr' );
$str->apply_tag( 5, 1, comma => 1 );
$str->set_substr( 0, 5, "Goodbye" );
undef @tags;
$str->iter_tags_nooverlap( \&fetch_tags );
is( \@tags,
[
[ 0, 7, message => 1 ],
[ 7, 1, comma => 1, message => 1 ],
[ 8, 7, message => 1 ],
],
'tags list after second substr' );
$str->set_substr( 7, 1, "" );
undef @tags;
$str->iter_tags_nooverlap( \&fetch_tags );
is( \@tags,
[
[ 0, 14, message => 1 ],
],
'tags list after collapsing substr' );
$str->apply_tag( 0, 7, goodbye => 1 );
$str->apply_tag( 8, 6, planet => 1 );
$str->set_substr( 2, 10, "urm" );
undef @tags;
$str->iter_tags_nooverlap( \&fetch_tags );
is( \@tags,
[
[ 0, 2, goodbye => 1, message => 1 ],
[ 2, 3, message => 1 ],
[ 5, 2, message => 1, planet => 1 ],
],
'tags list after straddling substr' );
$str->set_substr( 0, 0, "I say, " );
undef @tags;
$str->iter_tags_nooverlap( \&fetch_tags );
is( \@tags,
[
[ 0, 7, message => 1 ],
[ 7, 2, goodbye => 1, message => 1 ],
[ 9, 3, message => 1 ],
[ 12, 2, message => 1, planet => 1 ],
],
'tags list after prepend substr' );
# ->substr accessor
{
my $str = String::Tagged->new
->append_tagged( "one", one => 1 )
->append ( " " )
->append_tagged( "two", two => 2 )
->append ( " rest of the string" );
my $sub = $str->substr( 3, 9 );
is( $sub->str, " two rest", '$sub->str' );
my $e = $sub->get_tag_extent( 1, "two" );
is( $e->start, 1, 'two tag starts at 1' );
is( $e->length, 3, 'two tag length is 3' );
}
# ->substr can keep both-edge anchored tags
{
my $str = String::Tagged->new( "one two three" )
->apply_tag( -1, -1, wholestring => 1 );
my $sub = $str->substr( 4, 3 );
ok( my $e = $sub->get_tag_extent( 1, "wholestring" ), 'sub has wholestring tag' );
if( $e ) {
is( $e->start, 0, 'wholestring tag starts at 0' );
is( $e->length, 3, 'wholestring tag is 3 long' );
};
}
# ->substr split tag
{
my $str = String::Tagged->new
->append_tagged( "mouse inc", highlight => 1 )
->append ( "luding" );
my $sub = $str->substr( 6, 9 );
ok( my $e = $sub->get_tag_extent( 0, "highlight" ), 'sub has highlight tag' );
if( $e ) {
is( $e->start, 0, 'highlight tag starts at 0' );
is( $e->length, 3, 'highlight tag is 3 long' );
}
}
done_testing;
|
