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 | |
20f544ea |
8 | plan ( tests => 4 ); |
df4106bf |
9 | |
10 | use_ok( 'SDL::Video' ); |
11 | |
12 | can_ok ('SDL::Video', qw/ |
13 | get_video_surface |
14 | get_video_info |
8a2411d0 |
15 | video_driver_name |
95f5be30 |
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 | |
20f544ea |
25 | isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', 'Checking if we get videoinfo ref back'); |
26 | |
95f5be30 |
27 | =skip |
df4106bf |
28 | list_modes |
29 | video_mode_ok |
30 | set_video_mode |
31 | update_rect |
32 | update_rects |
33 | flip |
34 | set_colors |
35 | set_palette |
36 | set_gamma |
37 | get_gamma_ramp |
38 | set_gmmma_ramp |
39 | map_RGB |
40 | map_RGBA |
41 | get_RGB |
42 | get_RGBA |
43 | create_RGB_surface_from |
44 | lock_surface |
45 | unlock_surface |
46 | convert_surface |
47 | display_format |
48 | display_format_alpha |
49 | load_BMP |
50 | save_BMP |
51 | set_color_key |
52 | set_alpha |
53 | set_clip_rect |
54 | get_clip_rect |
55 | blit_surface |
56 | fill_rect |
57 | GL_load_library |
58 | GL_get_proc_address |
59 | GL_get_attribute |
60 | GL_set_attribute |
61 | GL_swap_buffers |
62 | GL_attr |
df4106bf |
63 | lock_YUV_overlay |
64 | unlock_YUV_overlay |
65 | display_YUV_overlay |
df4106bf |
66 | /); |
67 | |