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