t/core_wm.t

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