From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 2 Nov 2009 16:29:45 +0000 (-0500)
Subject: Added test file for SDL::MultiThread as acme is moving like a hacking machine on... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6b7c9f42a7364a905e7c511d7fc637845f7fb6b;p=sdlgit%2FSDL_perl.git

Added test file for SDL::MultiThread as acme is moving like a hacking machine on steroids
---

diff --git a/t/core_multi.t b/t/core_multi.t
new file mode 100644
index 0000000..d075d36
--- /dev/null
+++ b/t/core_multi.t
@@ -0,0 +1,53 @@
+#!/usr/bin/perl -w
+use strict;
+use SDL;
+use Test::More;
+
+plan ( tests => 4 );
+
+my @done =qw/ none /;
+
+
+SKIP:
+{
+skip 'Not implemented', 2; 
+use_ok( 'SDL::MultiThread' ); 
+can_ok ('SDL::MultiThread ', @done); 
+}
+
+my @left = qw/
+create_thread 
+thread_id 
+get_thread_id 
+wait_thread 
+kill_thread 
+create_mutex 
+destroy_mutex 
+mutex_P
+mutex_V 
+create_semaphore 
+destroy_semaphore 
+sem_wait 
+sem_try_wait 
+sem_wait_timeout 
+sem_post 
+sem_value 
+create_cond 
+destroy_cond 
+cond_signal 
+cond_broadcast 
+cond_wait 
+cond_wait_timeout 
+/;
+
+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';