Added tests for video.xs

diff --git a/t/core_video.t b/t/core_video.t
new file mode 100644 (file)
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
+       /);
+