t/core_video.t

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