PageRenderTime 20ms CodeModel.GetById 16ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

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