From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Wed, 28 Oct 2009 13:10:22 +0000 (-0400)
Subject: Skipping some tests for now
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de393d683e5d2ac5e65a2e23d549be8203220f8a;p=sdlgit%2FSDL_perl.git

Skipping some tests for now
---

diff --git a/t/core.t b/t/core.t
index fa5a123..3b677b5 100644
--- a/t/core.t
+++ b/t/core.t
@@ -3,14 +3,15 @@ use strict;
 use SDL;
 use Test::More;
 
-plan ( tests => 3 );
-
-use_ok( 'SDL' ); 
-
+plan ( tests => 4 );
 my @done =qw/ none /;
 
-#can_ok ('SDL', @done); 
-
+SKIP:
+{
+	skip 'Not implemented', 2;
+use_ok( 'SDL' ); 
+can_ok ('SDL', @done); 
+}
 
 my @left = qw/
 	init
diff --git a/t/core_wm.t b/t/core_wm.t
index 8f85c03..54bc6bf 100644
--- a/t/core_wm.t
+++ b/t/core_wm.t
@@ -3,14 +3,17 @@ use strict;
 use SDL;
 use Test::More;
 
-plan ( tests => 3 );
-
-use_ok( 'SDL' ); 
+plan ( tests => 4 );
 
 my @done =qw/ none /;
 
-#can_ok ('SDL', @done); 
 
+SKIP:
+{
+skip 'Not implemented', 2; 
+use_ok( 'SDL::WM' ); 
+can_ok ('SDL:WM', @done); 
+}
 
 my @left = qw/
 get_wminfo