13 skip 'Not implemented', 2;
15 can_ok ('SDL:WM', @done);
28 my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left);
33 pass "\nThe following functions:\n".join ",", @left;
35 if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why}
38 pass 'Are we still alive? Checking for segfaults';