Cleaned up test and made awesome zoom effect
[sdlgit/SDL_perl.git] / t / intergation1.t
CommitLineData
46e4c5bf 1#!/usr/bin/perl -w
2#
3# Copyright (C) 2003 Tels
4# Copyright (C) 2004 David J. Goehrig
5#
6# ------------------------------------------------------------------------------
7#
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.
12#
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.
17#
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
21#
22# ------------------------------------------------------------------------------
23#
24# Please feel free to send questions, suggestions or improvements to:
25#
26# David J. Goehrig
27# dgoehrig\@cpan.org
28#
29#
30# basic testing of SDL::App
31
32BEGIN {
33 unshift @INC, 'blib/lib','blib/arch';
34}
35
36use strict;
37use SDL;
38use SDL::Config;
4447e116 39use SDL::Rect;
1c436bbf 40use SDL::Game::Rect;
46e4c5bf 41use SDL::Color;
42use Test::More;
43
44plan ( tests => 2 );
45
46use_ok( 'SDL::App' );
47
48can_ok ('SDL::App', qw/
49 new
50 resize
51 title
52 delay
53 ticks
54 error
55 warp
56 fullscreen
57 iconify
58 grab_input
59 loop
60 sync
61 attribute /);
62
63my $app = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init => SDL_INIT_VIDEO);
64
63a3cc3f 65 my $rect = SDL::Rect->new( 0,0, $app->width, $app->height);
46e4c5bf 66
67 my $blue = SDL::Color->new(
68 -r => 0x00,
69 -g => 0x00,
70 -b => 0xff,
71 );
1c436bbf 72
73 my $col = SDL::Color->new(
74 -r => 0xf0,
75 -g => 0x00,
63a3cc3f 76 -b => 0x33,
1c436bbf 77 );
78
79
63a3cc3f 80 my $grect = SDL::Game::Rect->new(10, 10, 30, 35);
81 foreach(0..80)
4447e116 82 {
63a3cc3f 83
84
85 $grect->x($_ );
86 $grect->centery($_ * 3);
87 $grect->size( ($_ / 40) * $_, ($_/38) * $_ );
46e4c5bf 88 $app->fill($rect, $blue);
1c436bbf 89 $app->fill($grect, $col);
4447e116 90
91
46e4c5bf 92 $app->update($rect);
1c436bbf 93 $app->update($grect);
4447e116 94 $app->sync;
95 }
46e4c5bf 96
46e4c5bf 97 sleep(1);
98