fixes for tests

[email protected] (Michael HOUZE)
Newsgroups perl.sdl.devel
Message-ID <24099257.671161175858961982.JavaMail.www@wwinf1523> 
Hi again,

this is somes fixes for (all) test issues

 - SDL::DEBUG in SDL::Cursor : as usual, there is more than one way to do. The worth: add use of SDL::App module in
SDL::Cursor, the best: remove DEBUG from SDL::App and create SDL_DEBUG (for example, to avoid name collision in SDL modules users) in SDL::Constants, then add this module to SDL::App and all others need the debug symbol.

 - build issues for about all tests (missing loadable object): on the line "unshift @INC" in BEGIN block, add ", 'blib/arch/auto/Perl'" for all tests, 'blib/arch/auto/SFont' or 'blib/arch/auto/OpenGL' for fontpm and opengl tests resp.

 - for duplicate BEGIN sub issue (very strange issue !): remove unneeded BEGIN block for
    @ISA = qw(Exporter DynaLoader);
    @EXPORT = qw( in verify &NULL );

    and invert two lines:
            use SDL::Perl;
            use SDL::Constants;

attachaments: 
tests.diff = add right thing to INC array
XS_SDL__Perl_Sound_NewSampleFromMem_warning.diff = fix a cast warning

Regards.
/home/mhouze/perso/Dev/perl/Nehe/lesson27/XS_SDL__Perl_Sound_NewSampleFromMem_warning.diff (text/plain, 361 B) 
--- sdlperl/SDL.xs	2007-03-26 15:35:04.693481559 +0200
+++ sdlperl-mh/SDL.xs	2007-03-26 15:33:05.518033559 +0200
@@ -4458,7 +4458,7 @@
 	Sound_AudioInfo* desired
 	Uint32 buffsize
 	CODE:
-		RETVAL = Sound_NewSampleFromMem(data,size,ext,desired,buffsize);
+		RETVAL = (Sound_Sample*)Sound_NewSampleFromMem(data,size,ext,desired,buffsize);
 	OUTPUT:
 		RETVAL
/home/mhouze/perso/Dev/perl/Nehe/lesson27/tests.diff (text/plain, 6.6 KB) 
diff -uNr -x .svn sdlperl/t/apppm.t sdlperl-mh/t/apppm.t
--- sdlperl/t/apppm.t	2007-03-26 15:35:03.985437309 +0200
+++ sdlperl-mh/t/apppm.t	2007-04-06 09:19:21.820102982 +0200
@@ -30,7 +30,7 @@
 # basic testing of SDL::App
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/SFont', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/cdrompm.t sdlperl-mh/t/cdrompm.t
--- sdlperl/t/cdrompm.t	2007-03-26 15:35:03.993437809 +0200
+++ sdlperl-mh/t/cdrompm.t	2007-03-26 15:02:17.598545809 +0200
@@ -30,7 +30,7 @@
 # basic testing of SDL::Cdrom
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/colorpm.t sdlperl-mh/t/colorpm.t
--- sdlperl/t/colorpm.t	2007-03-26 15:35:04.001438309 +0200
+++ sdlperl-mh/t/colorpm.t	2007-03-26 15:03:00.689238809 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Color
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/cursorpm.t sdlperl-mh/t/cursorpm.t
--- sdlperl/t/cursorpm.t	2007-03-26 15:35:04.001438309 +0200
+++ sdlperl-mh/t/cursorpm.t	2007-03-26 15:03:10.485851059 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Cursor
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/eventpm.t sdlperl-mh/t/eventpm.t
--- sdlperl/t/eventpm.t	2007-03-26 15:35:03.985437309 +0200
+++ sdlperl-mh/t/eventpm.t	2007-03-26 15:03:20.098451809 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Event
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/fontpm.t sdlperl-mh/t/fontpm.t
--- sdlperl/t/fontpm.t	2007-03-26 15:35:03.997438059 +0200
+++ sdlperl-mh/t/fontpm.t	2007-03-26 15:03:40.671737559 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Font
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/SFont', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/mixerpm.t sdlperl-mh/t/mixerpm.t
--- sdlperl/t/mixerpm.t	2007-03-26 15:35:03.989437559 +0200
+++ sdlperl-mh/t/mixerpm.t	2007-03-26 15:03:49.736304059 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Mixer
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/mpegpm.t sdlperl-mh/t/mpegpm.t
--- sdlperl/t/mpegpm.t	2007-03-26 15:35:03.993437809 +0200
+++ sdlperl-mh/t/mpegpm.t	2007-03-26 15:03:58.100826809 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::MPEG
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/musicpm.t sdlperl-mh/t/musicpm.t
--- sdlperl/t/musicpm.t	2007-03-26 15:35:03.985437309 +0200
+++ sdlperl-mh/t/musicpm.t	2007-03-26 15:07:29.666048809 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Music
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/opengl.t sdlperl-mh/t/opengl.t
--- sdlperl/t/opengl.t	2007-03-26 15:35:03.989437559 +0200
+++ sdlperl-mh/t/opengl.t	2007-03-26 15:09:51.070886059 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::OpenGL
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl', 'blib/arch/auto/OpenGL';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/rectpm.t sdlperl-mh/t/rectpm.t
--- sdlperl/t/rectpm.t	2007-03-26 15:35:03.993437809 +0200
+++ sdlperl-mh/t/rectpm.t	2007-03-26 15:09:29.301525559 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Rect
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/sdlpm.t sdlperl-mh/t/sdlpm.t
--- sdlperl/t/sdlpm.t	2007-03-26 15:35:03.989437559 +0200
+++ sdlperl-mh/t/sdlpm.t	2007-03-26 15:09:01.219770559 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/surfacepm.t sdlperl-mh/t/surfacepm.t
--- sdlperl/t/surfacepm.t	2007-03-26 15:35:03.993437809 +0200
+++ sdlperl-mh/t/surfacepm.t	2007-03-26 15:08:50.039071809 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Surface
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/timerpm.t sdlperl-mh/t/timerpm.t
--- sdlperl/t/timerpm.t	2007-03-26 15:35:03.985437309 +0200
+++ sdlperl-mh/t/timerpm.t	2007-03-26 15:08:41.002507059 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Timer
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/toolfontpm.t sdlperl-mh/t/toolfontpm.t
--- sdlperl/t/toolfontpm.t	2007-03-26 15:35:03.997438059 +0200
+++ sdlperl-mh/t/toolfontpm.t	2007-03-26 15:08:30.801869559 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Tool::Font
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/toolgraphicpm.t sdlperl-mh/t/toolgraphicpm.t
--- sdlperl/t/toolgraphicpm.t	2007-03-26 15:35:04.001438309 +0200
+++ sdlperl-mh/t/toolgraphicpm.t	2007-03-26 15:08:18.913126559 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::Tool::Graphic
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/ttfontpm.t sdlperl-mh/t/ttfontpm.t
--- sdlperl/t/ttfontpm.t	2007-03-26 15:35:04.001438309 +0200
+++ sdlperl-mh/t/ttfontpm.t	2007-03-26 15:08:06.608357559 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::TTFont
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
diff -uNr -x .svn sdlperl/t/videopm.t sdlperl-mh/t/videopm.t
--- sdlperl/t/videopm.t	2007-03-26 15:35:03.997438059 +0200
+++ sdlperl-mh/t/videopm.t	2007-03-26 15:10:36.977755059 +0200
@@ -32,7 +32,7 @@
 # basic testing of SDL::VIDEO
 
 BEGIN {
-	unshift @INC, 'blib/lib','blib/arch';
+	unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/Perl';
 }
 
 use strict;
@@ -69,5 +69,3 @@
 	frame
 	info
 	status /);
-
-
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.