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