/xt/07_core_memleak.t
http://github.com/PerlGameDev/SDL · Perl · 23 lines · 14 code · 7 blank · 2 comment · 1 complexity · de1723ee9a7d2cc1795aa867288fec49 MD5 · raw file
- #!perl
- use strict;
- use warnings;
- use Test::More;
- use SDL;
- use SDL::Rect;
- # Don't run tests for installs
- use Test::More;
- sub leaky() {
- SDL::Rect->new( 0, 0, 10, 10 );
- }
- eval 'use Test::Valgrind';
- plan skip_all => 'Test::Valgrind is required to test your distribution with valgrind'
- if $@;
- leaky();
- sleep(2);