Make surfaces work again (bad hack though)

[sdlgit/SDL_perl.git] / t / surfacepm.t

diff --git a/t/surfacepm.t b/t/surfacepm.t
index b8a7945..243af6d 100644 (file)
--- a/t/surfacepm.t
+++ b/t/surfacepm.t
@@ -1,61 +1,33 @@
-#!/usr/bin/perl -w
-#
-# Copyright (C) 2003 Tels
-# Copyright (C) 2004 David J. Goehrig
-#
-# basic testing of SDL::Surface
-
-BEGIN {
-       unshift @INC, 'blib/lib','blib/arch';
-}
-
+#!perl
 use strict;
-
-use Test::More;
-
-plan ( tests => 3 );
-
-use_ok( 'SDL::Surface' ); 
-  
-can_ok ('SDL::Surface', qw/
-       new
-       flags
-       palette
-       bpp
-       bytes_per_pixel
-       Rshift
-       Gshift
-       Bshift
-       Ashift
-       Rmask
-       Bmask
-       Gmask
-       Amask
-       color_key
-       alpha
-       width
-       height
-       pitch
-       pixels
-       pixel
-       fill
-       lockp
-       lock
-       unlock
-       update
-       flip
-       blit
-       set_colors
-       set_color_key
-       set_alpha
-       display_format
-       rgb
-       rgba
-       print
-       save_bmp
-       video_info /);
-
-my $surface = SDL::Surface->new();
-
-isa_ok($surface,'SDL::Surface');
+use warnings;
+use Test::More tests => 11;
+use_ok('SDL');
+use_ok('SDL::Color');
+use_ok('SDL::Rect');
+use_ok('SDL::Surface');
+
+my $surface
+    = SDL::Surface->new( SDL::SDL_ANYFORMAT(), 640, 320, 0, 0, 0, 0, 0 );
+isa_ok( $surface, 'SDL::Surface' );
+is( $surface->w, 640, 'surface has width' );
+is( $surface->h, 320, 'surface has height' );
+
+my $image = SDL::Surface->load('test/data/logo.png');
+is( $image->w, 608, 'image has width' );
+is( $image->h, 126, 'image has height' );
+
+$surface->fill_rect( SDL::Rect->new( 0, 0, 32, 32 ),
+    SDL::Color->new( 200, 200, 200 ) );
+ok( 1, 'Managed to fill_rect' );
+
+my $rect = SDL::Rect->new( 0, 0, 64, 64 );
+$image->blit( $rect, $surface, $rect );
+ok( 1, 'Managed to blit' );
+
+#my $image_format = $surface->display;
+#$surface->update_rect( 0, 0, 32, 32 );
+#ok( 1, 'Managed to update_rect' );
+#$surface->update_rects( SDL::Rect->new( 0, 0, 32, 32 ) );
+#ok( 1, 'Managed to update_rects' );