Commit | Line | Data |
105dd7ae |
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 | init |
17 | init_sub_system |
18 | quit_sub_system |
19 | quit |
20 | was_init |
21 | get_error |
22 | set_error |
23 | error |
24 | clear_error |
25 | load_object |
26 | load_function |
27 | unload_fuction |
28 | unload_object |
29 | envvars |
30 | VERSION |
31 | linked_version |
32 | version |
33 | /; |
34 | |
35 | my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left); |
36 | |
37 | TODO: |
38 | { |
39 | local $TODO = $why; |
40 | pass "\nThe following functions:\n".join ",", @left; |
41 | } |
42 | if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why} |
43 | |
44 | |
45 | pass 'Are we still alive? Checking for segfaults'; |