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