1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use Test::More tests => 7;
use Graphics::Primitive::Font;
BEGIN {
use_ok('Graphics::Primitive::TextBox');
}
my $tb = Graphics::Primitive::TextBox->new;
isa_ok($tb, 'Graphics::Primitive::TextBox');
cmp_ok($tb->prepared, '==', 0, 'not prepared');
$tb->prepared(1);
cmp_ok($tb->prepared, '==', 1, 'prepared');
$tb->text('Different');
cmp_ok($tb->prepared, '==', 0, 'not prepared');
cmp_ok($tb->horizontal_alignment, 'eq', 'left', 'default horizontal alignment');
cmp_ok($tb->vertical_alignment, 'eq', 'top', 'default vertical alignment');
|
