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
|
#!/usr/bin/env perl
# Test the chop modifier
use warnings;
use strict;
use utf8;
use Test::More;
use String::Print;
my $f = String::Print->new;
isa_ok($f, 'String::Print');
my $text1 = "123456789012345678901234567890";
cmp_ok length($text1), '==', 30, 'check text length';
is $f->sprinti("Intro: {text}", text => $text1), "Intro: $text1", 'no modifier';
is $f->sprinti("Intro: {text CHOP(50)}", text => $text1), "Intro: $text1", 'fits in field easily';
### these are all examples from the manual page
is $f->sprinti("Intro: {text CHOP(25)}", text => $text1),
"Intro: 123456789012345678901[+9]", 'chop short';
is $f->sprinti("Intro: {text CHOP(25 chars)}", text => $text1),
"Intro: 12345678901234[+16 chars]", 'chop short with extra';
is $f->sprinti("Intro: {text CHOP(10)}", text => $text1),
"Intro: 12345[+25]", 'chop short';
is $f->sprinti("Intro: {text CHOP(12 chars)}", text => $text1),
"Intro: 1[+29 chars]", 'chop short with extra';
is $f->sprinti("Intro: {text CHOP(3)}", text => $text1),
"Intro: [30]", 'chop too short';
is $f->sprinti("Intro: {text CHOP(5 chars)}", text => $text1),
"Intro: [30 chars]", 'chop too short with extra';
$f->setDefaults(CHOP => +{width => 19, units => ' chars'});
is $f->sprinti("Intro: {text CHOP}", text => $text1), 'Intro: 12345678[+22 chars]', 'chop with changed defaults';
$f->setDefaults(CHOP => +{head => '«', tail => '»', width => 20});
is $f->sprinti("Intro: {text CHOP}", text => $text1), 'Intro: 123456789012345«+15»', 'chop with other head/tail';
#XXX this needs testing for wide and zero-width strings
done_testing;
|
