From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Wed, 21 Oct 2009 22:22:39 +0000 (-0400)
Subject: Added tests for video.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df4106bf3adcc7bfc46a5ed0bc2464008b2ec490;p=sdlgit%2FSDL_perl.git

Added tests for video.xs
---

diff --git a/t/core_video.t b/t/core_video.t
new file mode 100644
index 0000000..5f2b5b9
--- /dev/null
+++ b/t/core_video.t
@@ -0,0 +1,61 @@
+#!/usr/bin/perl -w
+BEGIN {
+	unshift @INC, 'blib/lib','blib/arch';
+}
+
+use strict;
+use SDL;
+use SDL::Config;
+
+use Test::More;
+
+plan ( tests => 2 );
+
+use_ok( 'SDL::Video' ); 
+  
+can_ok ('SDL::Video', qw/
+	get_video_surface
+	get_video_info
+	video_driver_name
+	list_modes
+	video_mode_ok
+	set_video_mode
+	update_rect
+	update_rects
+	flip
+	set_colors
+	set_palette
+	set_gamma
+	get_gamma_ramp
+	set_gmmma_ramp
+	map_RGB
+	map_RGBA
+	get_RGB
+	get_RGBA
+	create_RGB_surface_from
+	lock_surface
+	unlock_surface
+	convert_surface
+	display_format
+	display_format_alpha
+	load_BMP
+	save_BMP
+	set_color_key
+	set_alpha
+	set_clip_rect
+	get_clip_rect
+	blit_surface
+	fill_rect
+	GL_load_library
+	GL_get_proc_address
+	GL_get_attribute
+	GL_set_attribute
+	GL_swap_buffers
+	GL_attr
+	create_YUV_overlay
+	lock_YUV_overlay
+	unlock_YUV_overlay
+	display_YUV_overlay
+	free_YUV_overlay
+	/);
+