Commit | Line | Data |
df4106bf |
1 | #!/usr/bin/perl -w |
df4106bf |
2 | use strict; |
3 | use SDL; |
4510df28 |
4 | use SDL::Surface; |
df4106bf |
5 | use SDL::Config; |
7fa192d4 |
6 | use Devel::Peek; |
4510df28 |
7 | use Data::Dumper; |
df4106bf |
8 | use Test::More; |
9 | |
bc1947c7 |
10 | plan ( tests => 6 ); |
df4106bf |
11 | |
12 | use_ok( 'SDL::Video' ); |
13 | |
14 | can_ok ('SDL::Video', qw/ |
15 | get_video_surface |
16 | get_video_info |
8a2411d0 |
17 | video_driver_name |
7dda1934 |
18 | list_modes |
95f5be30 |
19 | /); |
20 | |
21 | #testing get_video_surface |
22 | SDL::Init(SDL_INIT_VIDEO); |
23 | |
24 | my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE ); |
25 | |
e4259ddb |
26 | diag('Testing SDL::Video'); |
95f5be30 |
27 | |
e4259ddb |
28 | isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', '[get_video_surface] Checking if we get a surface ref back'); |
29 | |
30 | isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', '[get_video_info] Checking if we get videoinfo ref back'); |
20f544ea |
31 | |
7fa192d4 |
32 | my $driver_name = SDL::Video::video_driver_name(); |
33 | |
e4259ddb |
34 | pass '[video_driver_name] This is your driver name: '.$driver_name; |
7fa192d4 |
35 | |
4510df28 |
36 | Dump SDL::Video::list_modes( $display->format , SDL_HWSURFACE ); |
7fa192d4 |
37 | |
bc1947c7 |
38 | pass "Are we still alive?"; |
39 | |
95f5be30 |
40 | =skip |
df4106bf |
41 | video_mode_ok |
42 | set_video_mode |
43 | update_rect |
44 | update_rects |
45 | flip |
46 | set_colors |
47 | set_palette |
48 | set_gamma |
49 | get_gamma_ramp |
50 | set_gmmma_ramp |
51 | map_RGB |
52 | map_RGBA |
53 | get_RGB |
54 | get_RGBA |
55 | create_RGB_surface_from |
56 | lock_surface |
57 | unlock_surface |
58 | convert_surface |
59 | display_format |
60 | display_format_alpha |
61 | load_BMP |
62 | save_BMP |
63 | set_color_key |
64 | set_alpha |
65 | set_clip_rect |
66 | get_clip_rect |
67 | blit_surface |
68 | fill_rect |
69 | GL_load_library |
70 | GL_get_proc_address |
71 | GL_get_attribute |
72 | GL_set_attribute |
73 | GL_swap_buffers |
74 | GL_attr |
df4106bf |
75 | lock_YUV_overlay |
76 | unlock_YUV_overlay |
77 | display_YUV_overlay |
df4106bf |
78 | /); |
79 | |