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
|
use strict;
use lib qw(t t/lib);
use Test::More tests => 6;
use Graphics::Color::RGB;
use Graphics::Primitive::Font;
use Graphics::Primitive::TextBox;
use Graphics::Primitive::Driver::Cairo;
my $driver = Graphics::Primitive::Driver::Cairo->new(format => 'PNG', width => 80, height => 300);
my $text = "Lorem ipsum dolor sit amet,\nconsectetur adipisicing elit,\nsed do eiusmod tempor incididunt ut labore et dolore magna aliqua.\nUt enim ad minim veniam,\nquis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.\nDuis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur.\nExcepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.";
# my $tl = Document::Writer::TextLayout->new(
# default_color => Graphics::Color::RGB->new(
# red => 0, green => 0, blue => 0, alpha => 1
# ),
# font => Graphics::Primitive::Font->new(
# size => 12
# ),
# text => $text,
# width => 80
# );
my $tb = Graphics::Primitive::TextBox->new(
color => Graphics::Color::RGB->new,
width => 80,
height => 300,
font => Graphics::Primitive::Font->new,
text => $text
);
my $tl = $driver->get_textbox_layout($tb);
my $ret = $tl->slice(0, 20);
isa_ok($ret, 'Graphics::Primitive::TextBox');
cmp_ok($ret->minimum_height, '>', 0, '0 offset, 20 size, > 0');
cmp_ok($ret->minimum_height, '<=', 20, '0 offset, 20 size, <= 20');
my $ret2 = $tl->slice($ret->height, 2);
cmp_ok($ret2->minimum_height, '==', 0, 'previous offset, 2 size');
my $ret3 = $tl->slice($ret->height, 20);
cmp_ok($ret3->minimum_height, '>', 0, 'previous offset, 20 size, > 0');
cmp_ok($ret3->minimum_height, '<=', 20, 'previous offset, 20 size, <= 20');
|
