/xt/07_core_memleak.t

 1#!perl
 2use strict;
 3use warnings;
 4use Test::More;
 5use SDL;
 6use SDL::Rect;
 7
 8# Don't run tests for installs
 9use Test::More;
10
11sub leaky() {
12
13	SDL::Rect->new( 0, 0, 10, 10 );
14
15}
16
17eval 'use Test::Valgrind';
18plan skip_all => 'Test::Valgrind is required to test your distribution with valgrind'
19	if $@;
20
21leaky();
22
23sleep(2);