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
|
use Test::More;
use Data::Perl;
use strict;
# constructor
is ref(string('a')), 'Data::Perl::String', 'constructor shortcut works';
my $c = string('a');
is $$c, 'a', 'nondefault set works';
$c->inc;
is $$c, 'b', 'inc works';
$c = string(123);
is $$c, '123', 'nondefault set with number works';
# append
$c->append('z');
is $$c, '123z', 'append works';
# prepend
$c->prepend('a');
is $$c, 'a123z', 'prepend works';
# replace
$c->replace(qr/2/, 'e');
is $$c, 'a1e3z', 'replace works';
$c->replace('3', sub { ok 1, 'sub called in regex replace'; 'r'});
is $$c, 'a1erz', 'replace works';
# match
$c = string('5555');
ok $c->match(qr/5/), 'match works';
# chop
$c->chop;
is $$c, '555', 'chop works';
# chomp
$c = string("foo\n\n\n");
is $c->chomp, 1, 'chomp works';
# clear
$c->clear;
is $$c, '', 'clear works';
# length
$c = string("12345");
is $c->length, 5, 'length works';
# substr
my $s = string("The black cat climbed the green tree");
is $s->substr(4, 5), 'black', 'substr 1';
is $s->substr(4, -11), 'black cat climbed the', 'substr 2';
is $s->substr(14), 'climbed the green tree', 'substr 3';
is $s->substr(-4), 'tree', 'substr 4';
is $s->substr(-4, 2), 'tr', 'substr 5';
is $s->substr(-4, 2), 'tr', 'substr 5';
is $s->substr(1, 2, 'foobar'), 'he', 'substr 6';
is $$s,'Tfoobar black cat climbed the green tree', 'string matches';
done_testing();
|
