t/core_video.t

   1 #!/usr/bin/perl -w
   2 BEGIN {
   3         unshift @INC, 'blib/lib','blib/arch';
   4 }
   5
   6 use strict;
   7 use SDL;
   8 use SDL::Config;
   9
  10 use Test::More;
  11
  12 plan ( tests => 2 );
  13
  14 use_ok( 'SDL::Video' );
  15
  16 can_ok ('SDL::Video', qw/
  17         get_video_surface
  18         get_video_info
  19         video_driver_name
  20         list_modes
  21         video_mode_ok
  22         set_video_mode
  23         update_rect
  24         update_rects
  25         flip
  26         set_colors
  27         set_palette
  28         set_gamma
  29         get_gamma_ramp
  30         set_gmmma_ramp
  31         map_RGB
  32         map_RGBA
  33         get_RGB
  34         get_RGBA
  35         create_RGB_surface_from
  36         lock_surface
  37         unlock_surface
  38         convert_surface
  39         display_format
  40         display_format_alpha
  41         load_BMP
  42         save_BMP
  43         set_color_key
  44         set_alpha
  45         set_clip_rect
  46         get_clip_rect
  47         blit_surface
  48         fill_rect
  49         GL_load_library
  50         GL_get_proc_address
  51         GL_get_attribute
  52         GL_set_attribute
  53         GL_swap_buffers
  54         GL_attr
  55         create_YUV_overlay
  56         lock_YUV_overlay
  57         unlock_YUV_overlay
  58         display_YUV_overlay
  59         free_YUV_overlay
  60         /);
  61