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
|
use strict;
use Test::More tests => 4;
use Graphics::Color::RGB;
use Graphics::Primitive::Brush;
use Graphics::Primitive::Border;
use Graphics::Primitive::Insets;
use Graphics::Primitive::Component;
my $brush = Graphics::Primitive::Brush->new;
my $brush2 = Graphics::Primitive::Brush->unpack($brush->pack);
ok($brush->equal_to($brush2), 'brush equal_to');
my $border = Graphics::Primitive::Border->new;
my $border2 = Graphics::Primitive::Border->unpack($border->pack);
ok($border->equal_to($border2), 'border equal_to');
my $insets = Graphics::Primitive::Insets->new;
my $insets2 = Graphics::Primitive::Insets->unpack($insets->pack);
ok($insets->equal_to($insets2), 'insets equal_to');
my $comp = Graphics::Primitive::Component->new(
width => 100,
height => 50,
name => 'foo'
);
my $comp2 = Graphics::Primitive::Component->thaw($comp->freeze);
is_deeply($comp, $comp2, 'component clone');
|
