t/core_wm.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use SDL;
   4 use Test::More;
   5
   6 plan ( tests => 4 );
   7
   8 my @done =qw/ none /;
   9
  10
  11 SKIP:
  12 {
  13 skip 'Not implemented', 2;
  14 use_ok( 'SDL::WM' );
  15 can_ok ('SDL:WM', @done);
  16 }
  17
  18 my @left = qw/
  19 get_wminfo
  20 set_caption
  21 get_caption
  22 set_icon
  23 iconify_window
  24 toggle_fullscreen
  25 grab_input
  26 /;
  27
  28 my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
  29
  30 TODO:
  31 {
  32         local $TODO = $why;
  33         pass "\nThe following functions:\n".join ",", @left;
  34 }
  35         if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag  $why}
  36
  37
  38 pass 'Are we still alive? Checking for segfaults';