From: Kartik Thakore Date: Wed, 28 Oct 2009 03:03:46 +0000 (-0400) Subject: Added core test template X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=105dd7ae8057a6e4b9913dbf5e48ac3d61970656;p=sdlgit%2FSDL_perl.git Added core test template --- diff --git a/t/core.t b/t/core.t new file mode 100644 index 0000000..fa5a123 --- /dev/null +++ b/t/core.t @@ -0,0 +1,45 @@ +#!/usr/bin/perl -w +use strict; +use SDL; +use Test::More; + +plan ( tests => 3 ); + +use_ok( 'SDL' ); + +my @done =qw/ none /; + +#can_ok ('SDL', @done); + + +my @left = qw/ + init + init_sub_system + quit_sub_system + quit + was_init + get_error + set_error + error + clear_error + load_object + load_function + unload_fuction + unload_object + envvars + VERSION + linked_version + version + /; + +my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left); + +TODO: +{ + local $TODO = $why; + pass "\nThe following functions:\n".join ",", @left; +} + if( $done[0] eq 'none'){ diag '0% done 0/'.$#left } else { diag $why} + + +pass 'Are we still alive? Checking for segfaults';