t/core_video.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use SDL;
   4 use SDL::Config;
   5
   6 use Test::More;
   7
   8 plan ( tests => 4 );
   9
  10 use_ok( 'SDL::Video' );
  11
  12 can_ok ('SDL::Video', qw/
  13         get_video_surface
  14         get_video_info
  15         video_driver_name
  16         /);
  17
  18 #testing get_video_surface
  19 SDL::Init(SDL_INIT_VIDEO);
  20
  21 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
  22
  23 isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', 'Checking if we get a surface ref back');
  24
  25 isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', 'Checking if we get videoinfo ref back');
  26
  27 =skip
  28         list_modes
  29         video_mode_ok
  30         set_video_mode
  31         update_rect
  32         update_rects
  33         flip
  34         set_colors
  35         set_palette
  36         set_gamma
  37         get_gamma_ramp
  38         set_gmmma_ramp
  39         map_RGB
  40         map_RGBA
  41         get_RGB
  42         get_RGBA
  43         create_RGB_surface_from
  44         lock_surface
  45         unlock_surface
  46         convert_surface
  47         display_format
  48         display_format_alpha
  49         load_BMP
  50         save_BMP
  51         set_color_key
  52         set_alpha
  53         set_clip_rect
  54         get_clip_rect
  55         blit_surface
  56         fill_rect
  57         GL_load_library
  58         GL_get_proc_address
  59         GL_get_attribute
  60         GL_set_attribute
  61         GL_swap_buffers
  62         GL_attr
  63         lock_YUV_overlay
  64         unlock_YUV_overlay
  65         display_YUV_overlay
  66         /);
  67