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