From: Kartik Thakore <thakore.kartik@gmail.com>
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?p=sdlgit%2FSDL_perl.git;a=commitdiff_plain;h=105dd7ae8057a6e4b9913dbf5e48ac3d61970656

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';