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