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