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 diag('Testing SDL::Video');
  24
  25 isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', '[get_video_surface] Checking if we get a surface ref back');
  26
  27 isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', '[get_video_info] Checking if we get videoinfo ref back');
  28
  29 my $driver_name = SDL::Video::video_driver_name();
  30
  31 pass '[video_driver_name] This is your driver name: '.$driver_name;
  32
  33 #Dump( SDL::Video::video_driver_name() );
  34
  35 pass "Are we still alive?";
  36
  37 =skip
  38         list_modes
  39         video_mode_ok
  40         set_video_mode
  41         update_rect
  42         update_rects
  43         flip
  44         set_colors
  45         set_palette
  46         set_gamma
  47         get_gamma_ramp
  48         set_gmmma_ramp
  49         map_RGB
  50         map_RGBA
  51         get_RGB
  52         get_RGBA
  53         create_RGB_surface_from
  54         lock_surface
  55         unlock_surface
  56         convert_surface
  57         display_format
  58         display_format_alpha
  59         load_BMP
  60         save_BMP
  61         set_color_key
  62         set_alpha
  63         set_clip_rect
  64         get_clip_rect
  65         blit_surface
  66         fill_rect
  67         GL_load_library
  68         GL_get_proc_address
  69         GL_get_attribute
  70         GL_set_attribute
  71         GL_swap_buffers
  72         GL_attr
  73         lock_YUV_overlay
  74         unlock_YUV_overlay
  75         display_YUV_overlay
  76         /);
  77