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 | |
bc1947c7 |
8 | plan ( tests => 6 ); |
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 | |
bc1947c7 |
27 | pass 'This is your driver name: '.SDL::Video::video_driver_name(10); |
28 | pass "Are we still alive?"; |
29 | |
95f5be30 |
30 | =skip |
df4106bf |
31 | list_modes |
32 | video_mode_ok |
33 | set_video_mode |
34 | update_rect |
35 | update_rects |
36 | flip |
37 | set_colors |
38 | set_palette |
39 | set_gamma |
40 | get_gamma_ramp |
41 | set_gmmma_ramp |
42 | map_RGB |
43 | map_RGBA |
44 | get_RGB |
45 | get_RGBA |
46 | create_RGB_surface_from |
47 | lock_surface |
48 | unlock_surface |
49 | convert_surface |
50 | display_format |
51 | display_format_alpha |
52 | load_BMP |
53 | save_BMP |
54 | set_color_key |
55 | set_alpha |
56 | set_clip_rect |
57 | get_clip_rect |
58 | blit_surface |
59 | fill_rect |
60 | GL_load_library |
61 | GL_get_proc_address |
62 | GL_get_attribute |
63 | GL_set_attribute |
64 | GL_swap_buffers |
65 | GL_attr |
df4106bf |
66 | lock_YUV_overlay |
67 | unlock_YUV_overlay |
68 | display_YUV_overlay |
df4106bf |
69 | /); |
70 | |