Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

218 lines (188 sloc) 6.392 kB
#!/usr/bin/perl -w
use strict;
use SDL;
use SDL::Config;
use SDL::Version;
use SDL::Image;
use SDL::RWOps;
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' );
} elsif ( !SDL::Config->has('SDL_image') ) {
plan( skip_all => 'SDL_image support not compiled' );
}
my @done = qw/
linked_version
load_rw
load_typed_rw
load_PNG_rw
load_BMP_rw
load_GIF_rw
load_JPG_rw
load_LBM_rw
load_PCX_rw
load_PNM_rw
load_TIF_rw
load_XCF_rw
load_XPM_rw
load_XV_rw
is_PNG
is_BMP
is_GIF
is_JPG
is_LBM
is_PCX
is_PNM
is_TIF
is_XCF
is_XPM
is_XV
/;
can_ok( "SDL::Image", @done );
my $lver = SDL::Image::linked_version();
isa_ok( $lver, "SDL::Version", '[linked_version] got version back!' );
printf( "got version: %d.%d.%d\n", $lver->major, $lver->minor, $lver->patch );
SKIP:
{
skip( 'PNG support not compiled', 14 ) unless SDL::Config->has('png');
isa_ok(
SDL::Image::load("test/data/highlight.png"),
"SDL::Surface", "[load] Gets Surface"
);
my $file = SDL::RWOps->new_file( "test/data/logo.png", "rb" );
isa_ok(
SDL::Image::load_rw( $file, 1 ),
"SDL::Surface", "[load_rw] Gets surface"
);
my $file2 = SDL::RWOps->new_file( "test/data/menu.png", "rb" );
isa_ok(
SDL::Image::load_typed_rw( $file2, 1, "PNG" ),
"SDL::Surface", "[loadtyped_rw] Makes surface from png"
);
my $file3 = SDL::RWOps->new_file( "test/data/menu.png", "rb" );
is( SDL::Image::is_PNG($file3),
1, "[is_PNG] gets correct value for png file"
);
is( SDL::Image::is_BMP($file3), 0, '[is_BMP] returned correct value' );
is( SDL::Image::is_GIF($file3), 0, '[is_GIF] returned correct value' );
is( SDL::Image::is_JPG($file3), 0, '[is_JPG] returned correct value' );
is( SDL::Image::is_LBM($file3), 0, '[is_LMB] returned correct value' );
is( SDL::Image::is_PCX($file3), 0, '[is_PCX] returned correct value' );
is( SDL::Image::is_PNM($file3), 0, '[is_PNM] returned correct value' );
is( SDL::Image::is_TIF($file3), 0, '[is_TIF] returned correct value' );
is( SDL::Image::is_XCF($file3), 0, '[is_XCF] returned correct value' );
is( SDL::Image::is_XPM($file3), 0, '[is_XPM] returned correct value' );
is( SDL::Image::is_XV($file3), 0, '[is_XV] returned correct value' );
}
SKIP:
{
skip( 'JPEG support not compiled', 14 ) unless SDL::Config->has('jpeg');
isa_ok(
SDL::Image::load("test/data/picture.jpg"),
"SDL::Surface", "[load] Gets Surface"
);
my $file = SDL::RWOps->new_file( "test/data/picture.jpg", "rb" );
isa_ok(
SDL::Image::load_rw( $file, 1 ),
"SDL::Surface", "[load_rw] Gets surface"
);
my $file2 = SDL::RWOps->new_file( "test/data/picture.jpg", "rb" );
isa_ok(
SDL::Image::load_typed_rw( $file2, 1, "JPG" ),
"SDL::Surface", "[loadtyped_rw] Makes surface from jpg"
);
my $file3 = SDL::RWOps->new_file( "test/data/picture.jpg", "rb" );
is( SDL::Image::is_JPG($file3),
1, "[is_JPG] gets correct value for jpg file"
);
is( SDL::Image::is_BMP($file3), 0, '[is_BMP] returned correct value' );
is( SDL::Image::is_GIF($file3), 0, '[is_GIF] returned correct value' );
is( SDL::Image::is_PNG($file3), 0, '[is_PNG] returned correct value' );
is( SDL::Image::is_LBM($file3), 0, '[is_LMB] returned correct value' );
is( SDL::Image::is_PCX($file3), 0, '[is_PCX] returned correct value' );
is( SDL::Image::is_PNM($file3), 0, '[is_PNM] returned correct value' );
is( SDL::Image::is_TIF($file3), 0, '[is_TIF] returned correct value' );
is( SDL::Image::is_XCF($file3), 0, '[is_XCF] returned correct value' );
is( SDL::Image::is_XPM($file3), 0, '[is_XPM] returned correct value' );
is( SDL::Image::is_XV($file3), 0, '[is_XV] returned correct value' );
}
SKIP:
{
skip( 'TIFF support not compiled', 14 ) unless SDL::Config->has('tiff');
isa_ok(
SDL::Image::load("test/data/picture.tif"),
"SDL::Surface", "[load] Gets Surface"
);
my $file = SDL::RWOps->new_file( "test/data/picture.tif", "rb" );
isa_ok(
SDL::Image::load_rw( $file, 1 ),
"SDL::Surface", "[load_rw] Gets surface"
);
my $file2 = SDL::RWOps->new_file( "test/data/picture.tif", "rb" );
isa_ok(
SDL::Image::load_typed_rw( $file2, 1, "TIF" ),
"SDL::Surface", "[loadtyped_rw] Makes surface from tif"
);
my $file3 = SDL::RWOps->new_file( "test/data/picture.tif", "rb" );
is( SDL::Image::is_TIF($file3),
1, "[is_TIF] gets correct value for tif file"
);
is( SDL::Image::is_BMP($file3), 0, '[is_BMP] returned correct value' );
is( SDL::Image::is_GIF($file3), 0, '[is_GIF] returned correct value' );
is( SDL::Image::is_JPG($file3), 0, '[is_JPG] returned correct value' );
is( SDL::Image::is_LBM($file3), 0, '[is_LMB] returned correct value' );
is( SDL::Image::is_PCX($file3), 0, '[is_PCX] returned correct value' );
is( SDL::Image::is_PNM($file3), 0, '[is_PNM] returned correct value' );
is( SDL::Image::is_PNG($file3), 0, '[is_PNG] returned correct value' );
is( SDL::Image::is_XCF($file3), 0, '[is_XCF] returned correct value' );
is( SDL::Image::is_XPM($file3), 0, '[is_XPM] returned correct value' );
is( SDL::Image::is_XV($file3), 0, '[is_XV] returned correct value' );
}
#need to get DEFINES to SDL::Image::Constants;
#IMG_INIT_JPG =?o
is( IMG_INIT_JPG, 0x00000001, '[IMG_INIT_JPG] constant loaded properly' );
is( IMG_INIT_PNG, 0x00000002, '[IMG_INIT_PNG] constant loaded properly' );
is( IMG_INIT_TIF, 0x00000004, '[IMG_INIT_TIF] constant loaded properly' );
SKIP:
{
skip( 'This is only for version >= 1.2.10', 2 )
unless ( $lver->major >= 1 && $lver->minor >= 2 && $lver->patch >= 10 );
SKIP:
{
skip( 'JPEG support not compiled', 1 ) unless SDL::Config->has('jpeg');
is( SDL::Image::init(IMG_INIT_JPG), IMG_INIT_JPG,
'[init] Inited JPEG'
);
}
SKIP:
{
skip( 'TIFF support not compiled', 1 ) unless SDL::Config->has('tiff');
is( SDL::Image::init(IMG_INIT_TIF), IMG_INIT_TIF,
'[init] Inited TIFF'
);
}
SKIP:
{
skip( 'PNG support not compiled', 1 ) unless SDL::Config->has('png');
is( SDL::Image::init(IMG_INIT_PNG), IMG_INIT_PNG, '[init] Inited PNG' );
}
can_ok(
'SDL::Image', qw/
load_ICO_rw
load_CUR_rw
is_ICO
is_CUR/
);
SDL::Image::quit();
pass '[quit] we can quit fine';
}
if ($videodriver) {
$ENV{SDL_VIDEODRIVER} = $videodriver;
} else {
delete $ENV{SDL_VIDEODRIVER};
}
done_testing;
Jump to Line
Something went wrong with that request. Please try again.