use strict;
use warnings;
use SDL;
use SDL::Rect;
use SDLx::Rect;
use Test::More;
use lib 't/lib';
use SDL::TestTool;
my $videodriver = $ENV{SDL_VIDEODRIVER};
$ENV{SDL_VIDEODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};
if ( !SDL::TestTool->init(SDL_INIT_VIDEO) ) {
plan( skip_all => 'Failed to init video' );
}
can_ok(
'SDLx::Rect', qw/
width
w
height
h
left
x
top
y
bottom
right
centerx
centery
size
topleft
midleft
bottomleft
center
topright
midright
bottomright
midtop
midbottom
new
copy
duplicate
move
move_ip
inflate
inflate_ip
clamp
clamp_ip
clip
clip_ip
union
union_ip
unionall
unionall_ip
fit
fit_ip
normalize
contains
collidepoint
colliderect
collidelist
collidelistall
collidehash
collidehashall
/
);
my ($x, $y, $w, $h) = (0, 1, 2, 3);
my $rect = SDLx::Rect->new($x, $y, $w, $h);
ok($rect, 'new');
isa_ok($rect, 'SDLx::Rect');
is($rect->width, $w, 'get width');
is($rect->w, $w, 'get w');
is($rect->height, $h, 'get height');
is($rect->h, $h, 'get h');
is($rect->left, $x, 'get left');
is($rect->x, $x, 'get x');
is($rect->top, $y, 'get top');
is($rect->y, $y, 'get y');
is($rect->bottom, $y + $h, 'get bottom');
is($rect->right, $x + $w, 'get right');
my $copy = $rect->copy();
is($copy->w, $w, 'copy (w)');
is($copy->h, $h, 'copy (h)');
is($copy->x, $x, 'copy (x)');
is($copy->y, $y, 'copy (y)');
my ($dx, $dy) = (4, 5);
my $moved = $rect->move($dx, $dy);
is($moved->w, $w, 'move (w)');
is($moved->h, $h, 'move (h)');
is($moved->x, $x + $dx, 'move (x)');
is($moved->y, $y + $dy, 'move (y)');
my ($dw, $dh) = (6, 7);
my $inflated = $rect->inflate($dw, $dh);
is($inflated->w, $w + $dw, 'inflate (w)');
is($inflated->h, $h + $dh, 'inflate (h)');
is($inflated->x, $x - $dw / 2, 'inflate (x)');
is($inflated->y, $y - $dw / 2, 'inflate (y)');
if ($videodriver) {
$ENV{SDL_VIDEODRIVER} = $videodriver;
} else {
delete $ENV{SDL_VIDEODRIVER};
}
pass 'Final SegFault test';
done_testing;