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.--- 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
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 /);
-
-
