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 => 6 );
   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 pass 'This is your driver name: '.SDL::Video::video_driver_name(10);
  28 pass "Are we still alive?";
  29
  30 =skip
  31         list_modes
  32         video_mode_ok
  33         set_video_mode
  34         update_rect
  35         update_rects
  36         flip
  37         set_colors
  38         set_palette
  39         set_gamma
  40         get_gamma_ramp
  41         set_gmmma_ramp
  42         map_RGB
  43         map_RGBA
  44         get_RGB
  45         get_RGBA
  46         create_RGB_surface_from
  47         lock_surface
  48         unlock_surface
  49         convert_surface
  50         display_format
  51         display_format_alpha
  52         load_BMP
  53         save_BMP
  54         set_color_key
  55         set_alpha
  56         set_clip_rect
  57         get_clip_rect
  58         blit_surface
  59         fill_rect
  60         GL_load_library
  61         GL_get_proc_address
  62         GL_get_attribute
  63         GL_set_attribute
  64         GL_swap_buffers
  65         GL_attr
  66         lock_YUV_overlay
  67         unlock_YUV_overlay
  68         display_YUV_overlay
  69         /);
  70