Commit | Line | Data |
c894bef0 |
1 | #!/usr/bin/perl -w |
2 | use strict; |
3 | use SDL; |
4 | use Test::More; |
5 | |
6 | plan ( tests => 4 ); |
7 | |
8 | my @done =qw/ none /; |
9 | |
10 | |
11 | SKIP: |
12 | { |
13 | skip 'Not implemented', 2; |
14 | use_ok( 'SDL::Events' ); |
15 | can_ok ('SDL::Events', @done); |
16 | } |
17 | |
18 | my @left = qw/ |
19 | pumpevents |
20 | peepevents |
21 | pollevent |
22 | waitevent |
23 | pushevent |
24 | seteventfilter |
25 | eventstate |
26 | getkeystate |
27 | getmodstate |
28 | setmodstate |
29 | getkeyname |
30 | enableunicode |
31 | enablekeyrepeat |
32 | getmousestate |
33 | getrelativemousestate |
34 | getappstate |
35 | joystickeventstate |
36 | StartTextInput |
37 | StopTextInput |
38 | SetTextInputRect |
39 | /; |
40 | |
41 | my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left); |
42 | |
43 | TODO: |
44 | { |
45 | local $TODO = $why; |
46 | pass "\nThe following functions:\n".join ",", @left; |
47 | } |
48 | if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why} |
49 | |
50 | |
51 | pass 'Are we still alive? Checking for segfaults'; |