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';
47 can_ok ('SDL::App', qw/
62 my $app = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
64 my $rect = SDL::Rect->new( 0,0, 10, 20);
66 my $blue = SDL::Color->new(
71 $app->fill($rect, $blue);