Commit | Line | Data |
105dd7ae |
1 | #!/usr/bin/perl -w |
2 | use strict; |
3 | use SDL; |
4 | use Test::More; |
5 | |
de393d68 |
6 | plan ( tests => 4 ); |
105dd7ae |
7 | my @done =qw/ none /; |
8 | |
de393d68 |
9 | SKIP: |
10 | { |
11 | skip 'Not implemented', 2; |
12 | use_ok( 'SDL' ); |
13 | can_ok ('SDL', @done); |
14 | } |
105dd7ae |
15 | |
16 | my @left = qw/ |
17 | init |
18 | init_sub_system |
19 | quit_sub_system |
20 | quit |
21 | was_init |
22 | get_error |
23 | set_error |
24 | error |
25 | clear_error |
26 | load_object |
27 | load_function |
28 | unload_fuction |
29 | unload_object |
30 | envvars |
31 | VERSION |
32 | linked_version |
33 | version |
34 | /; |
35 | |
36 | my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left); |
37 | |
38 | TODO: |
39 | { |
40 | local $TODO = $why; |
41 | pass "\nThe following functions:\n".join ",", @left; |
42 | } |
43 | if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why} |
44 | |
45 | |
46 | pass 'Are we still alive? Checking for segfaults'; |