Commit | Line | Data |
8cce3f72 |
1 | #!/usr/bin/perl -w |
2 | use strict; |
3 | use SDL; |
4 | use Test::More; |
5 | use Test::Trap; |
a92ef32b |
6 | use Data::Dumper; |
8cce3f72 |
7 | |
8 | plan ( tests => 4 ); |
9 | my @done =qw/ none /; |
10 | |
11 | SKIP: |
12 | { |
a92ef32b |
13 | skip 'Not implemented', 2; |
8cce3f72 |
14 | use_ok( 'SDL::Time' ); |
15 | can_ok ('SDL::Time', @done); |
16 | } |
17 | |
a92ef32b |
18 | my @timerInit = trap { SDL::init(SDL_INIT_TIMER) }; |
19 | |
20 | #diag $trap->leaveby; |
21 | #diag Dumper $trap->return; |
22 | #diag @timerInit[0]; |
23 | |
8cce3f72 |
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'; |