use strict;
use warnings;
use constant HAS_LEAKTRACE => eval { require Test::LeakTrace };
use Test::More HAS_LEAKTRACE
? ( tests => 2 )
: ( skip_all => 'require Test::LeakTrace' );
use Test::LeakTrace;
#use Devel::LeakGuard::Object qw( GLOBAL_bless :at_end leakguard );
use_ok('SWISH::Filter');
SKIP: {
unless ( $ENV{TEST_LEAKS} ) {
skip "set TEST_LEAKS to test memory leaks", 1;
}
leaks_cmp_ok {
#diag("start block");
my $filter = SWISH::Filter->new;
#diag("new SWISH::Filter");
#$filter = undef;
}
'<', 1;
}