Commit | Line | Data |
97d9726e |
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'; |