1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/perl -w
# basic testing of SDL::Surface
use Test::More tests => 3;
use strict;
use vars qw/@INC/;
BEGIN
{
unshift @INC, ('../blib/lib');
unshift @INC, ('../blib/arch');
chdir 't' if -d 't';
use_ok( 'SDL::Surface' );
}
can_ok ('SDL::Surface', qw/
new
flags
palette
bpp
bytes_per_pixel
Rshift
Gshift
Bshift
Ashift
Rmask
Bmask
Gmask
Amask
color_key
alpha
width
height
pitch
pixels
pixel
fill
lockp
lock
unlock
update
flip
blit
set_colors
set_color_key
set_alpha
display_format
rgb
rgba
print
save_bmp
video_info
/);
my $surface = SDL::Surface->new( -name => '');
is (ref($surface),'SDL::Surface','new went ok');
|
