projects
/
sdlgit/SDL_perl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge git://github.com/FROGGS/SDL_perl into redesign
[sdlgit/SDL_perl.git]
/
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
lock_YUV_overlay
56
unlock_YUV_overlay
57
display_YUV_overlay
58
/);
59