git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/t/06_loadxpm.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN { print "1..2\n"; }
   4
   5 use strict;
   6 use Wx;
   7 use lib './t';
   8 use Tests_Helper qw(test_app);
   9
  10 my $data = [ map { m/^"(.*)"/ ? ( $1 ) : () } split /\n/, <<'EOT' ];
  11 /* XPM */
  12 static char * wxpl16_xpm[] = {
  13 "16 16 5 1",
  14 "       c None",
  15 ".      c Gray100",
  16 "X      c Red",
  17 "o      c Yellow",
  18 "O      c Blue",
  19 "                ",
  20 " ...........    ",
  21 " .XXXXXXXXX.    ",
  22 " .XXXXXXXXX.    ",
  23 " .XXXX......... ",
  24 " .XXXX.ooooooo. ",
  25 " .XXXX.ooooooo. ",
  26 " .X........ooo. ",
  27 " ...OOOOOO.ooo. ",
  28 "   .OOOOOO.ooo. ",
  29 "   .OOOOOO.ooo. ",
  30 "   .OOOOOO.ooo. ",
  31 "   ........ooo. ",
  32 "      .ooooooo. ",
  33 "      ......... ",
  34 "                "};
  35 EOT
  36
  37 test_app( sub {
  38             my $xpm = Wx::Bitmap->newFromXPM( $data );
  39             print +( $xpm->Ok ? "ok" : "not ok" ), "\n";
  40             print +( $xpm->GetWidth == 16 ? "ok" : "not ok" ), "\n";
  41 } );
  42
  43 # local variables:
  44 # mode: cperl
  45 # end: