Commit | Line | Data |
df4106bf |
1 | #!/usr/bin/perl -w |
df4106bf |
2 | use strict; |
3 | use SDL; |
4 | use SDL::Config; |
5 | |
6 | use Test::More; |
7 | |
8 | plan ( tests => 2 ); |
9 | |
10 | use_ok( 'SDL::Video' ); |
11 | |
12 | can_ok ('SDL::Video', qw/ |
13 | get_video_surface |
14 | get_video_info |
95f5be30 |
15 | /); |
16 | |
17 | #testing get_video_surface |
18 | SDL::Init(SDL_INIT_VIDEO); |
19 | |
20 | my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE ); |
21 | |
22 | isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', 'Checking if we get a surface ref back'); |
23 | |
24 | =skip |
df4106bf |
25 | video_driver_name |
26 | list_modes |
27 | video_mode_ok |
28 | set_video_mode |
29 | update_rect |
30 | update_rects |
31 | flip |
32 | set_colors |
33 | set_palette |
34 | set_gamma |
35 | get_gamma_ramp |
36 | set_gmmma_ramp |
37 | map_RGB |
38 | map_RGBA |
39 | get_RGB |
40 | get_RGBA |
41 | create_RGB_surface_from |
42 | lock_surface |
43 | unlock_surface |
44 | convert_surface |
45 | display_format |
46 | display_format_alpha |
47 | load_BMP |
48 | save_BMP |
49 | set_color_key |
50 | set_alpha |
51 | set_clip_rect |
52 | get_clip_rect |
53 | blit_surface |
54 | fill_rect |
55 | GL_load_library |
56 | GL_get_proc_address |
57 | GL_get_attribute |
58 | GL_set_attribute |
59 | GL_swap_buffers |
60 | GL_attr |
df4106bf |
61 | lock_YUV_overlay |
62 | unlock_YUV_overlay |
63 | display_YUV_overlay |
df4106bf |
64 | /); |
65 | |