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
|
#!/usr/bin/perl -w
BEGIN { print "1..2\n"; }
use strict;
use Wx;
use lib './t';
use Tests_Helper qw(test_app);
my $data = [ map { m/^"(.*)"/ ? ( $1 ) : () } split /\n/, <<'EOT' ];
/* XPM */
static char * wxpl16_xpm[] = {
"16 16 5 1",
" c None",
". c Gray100",
"X c Red",
"o c Yellow",
"O c Blue",
" ",
" ........... ",
" .XXXXXXXXX. ",
" .XXXXXXXXX. ",
" .XXXX......... ",
" .XXXX.ooooooo. ",
" .XXXX.ooooooo. ",
" .X........ooo. ",
" ...OOOOOO.ooo. ",
" .OOOOOO.ooo. ",
" .OOOOOO.ooo. ",
" .OOOOOO.ooo. ",
" ........ooo. ",
" .ooooooo. ",
" ......... ",
" "};
EOT
test_app( sub {
my $xpm = Wx::Bitmap->newFromXPM( $data );
print +( $xpm->Ok ? "ok" : "not ok" ), "\n";
print +( $xpm->GetWidth == 16 ? "ok" : "not ok" ), "\n";
} );
# local variables:
# mode: cperl
# end:
|
