File: fix-runaway-test

package info (click to toggle)
libsdl-perl 2.548-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 5,904 kB
  • sloc: perl: 13,985; ansic: 582; makefile: 35
file content (23 lines) | stat: -rw-r--r-- 726 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Description: Fix runaway test
 Test case requires the creation of an event. This creation require the specification of an event type. Otherwise the event may not fire on some arch like ia64 or armhf. If the event does not fire, the test does not end.
Bug-Debian: #721405
Author: kthakore
Origin: upstream
--- a/t/sdlx_controller_interface.t
+++ b/t/sdlx_controller_interface.t
@@ -9,6 +9,7 @@
 use lib 't/lib';
 use SDL::TestTool;
 use Data::Dumper;
+use SDL::Events;
 
 my $videodriver = $ENV{SDL_VIDEODRIVER};
 $ENV{SDL_VIDEODRIVER} = 'dummy';
@@ -79,6 +80,7 @@
 require SDL::Event;
 require SDL::Events;
 my $eve = SDL::Event->new();
+$eve->type(SDL_USEREVENT);
 
 SDL::Events::push_event($eve);
 my $counts = [ 0, 0, 0 ];