Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Accidently added ppport to bundle file for Mac build

  • Loading branch information...
commit 6b9a70b480adc07412b4f81d294c447d8bd3e7cc 1 parent 2e56c95
@kthakore kthakore authored
Showing with 13 additions and 4 deletions.
  1. +0 −1  MacOSX/main.c
  2. +13 −3 t/smpeg.t
View
1  MacOSX/main.c
@@ -1,4 +1,3 @@
-#include "ppport.h"
#include <EXTERN.h> /* from the Perl distribution */
#include <perl.h> /* from the Perl distribution */
#include <SDL.h>
View
16 t/smpeg.t
@@ -11,6 +11,10 @@ use SDL::Config;
use Test::More;
+my $videodriver = $ENV{SDL_VIDEODRIVER};
+$ENV{SDL_VIDEODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};
+
+
if ( SDL::Config->has('smpeg') ) {
plan( tests => 19 );
} else {
@@ -90,13 +94,19 @@ SCOPE: {
isa_ok( $surface, 'SDL::Surface' );
# Attach the movie to a surface
- ok( $smpeg->display($surface), '->display(surface) ok' );
+ is( $smpeg->display($surface), undef, '->display(surface) ok' );
# Now that we are bound we should be able to do things
# to the movie and have them actually work.
# Confirm we can change where we are in the video.
- ok( $smpeg->frame(5), '->frame(5) ok' );
+ is( $smpeg->frame(5), undef, '->frame(5) ok' );
is( $mpeg->frame, 5, '->frame updated in info object' );
}
-sleep(2);
+
+if ($videodriver) {
+ $ENV{SDL_VIDEODRIVER} = $videodriver;
+} else {
+ delete $ENV{SDL_VIDEODRIVER};
+}
+
Please sign in to comment.
Something went wrong with that request. Please try again.