t/core_time.t

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