t/core_time.t

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