3 # Copyright (C) 2003 Tels
4 # Copyright (C) 2004 David J. Goehrig
6 # ------------------------------------------------------------------------------
8 # This library is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU Lesser General Public
10 # License as published by the Free Software Foundation; either
11 # version 2.1 of the License, or (at your option) any later version.
13 # This library is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # Lesser General Public License for more details.
18 # You should have received a copy of the GNU Lesser General Public
19 # License along with this library; if not, write to the Free Software
20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 # ------------------------------------------------------------------------------
24 # Please feel free to send questions, suggestions or improvements to:
30 # basic testing of SDL::App
33 unshift @INC, 'blib/lib','blib/arch';
48 can_ok ('SDL::App', qw/
63 my $app = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
65 my $rect = SDL::Rect->new( 0,0, $app->w, $app->h);
67 my $pixel_format = $app->format;
68 my $blue_pixel = SDL::MapRGB( $pixel_format, 0x00, 0x00, 0xff );
69 my $col_pixel = SDL::MapRGB( $pixel_format, 0xf0, 0x00, 0x33 );
71 my $grect = SDL::Game::Rect->new(10, 10, 30, 35);
76 $grect->centery($_ * 3);
77 $grect->size( ($_ / 40) * $_, ($_/38) * $_ );
78 SDL::FillRect( $app, $rect, $blue_pixel );
79 SDL::FillRect( $app, $grect, $col_pixel );
81 SDL::UpdateRect($app, 0, 0, 640, 480);