File: 27-client-leaks.t

package info (click to toggle)
libxml-atom-perl 0.37-1%2Bsqueeze1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 488 kB
  • ctags: 308
  • sloc: perl: 2,641; xml: 673; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 416 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use strict;
use warnings;
use Test::More;

BEGIN {
    unless (eval { require DateTime }) {
        plan skip_all => 'DateTime is required for tests';
    }
}

plan tests => 1;
use XML::Atom::Client;

my $foo;
no warnings 'redefine';
my $orig = LWP::UserAgent::AtomClient->can('DESTROY');
*LWP::UserAgent::AtomClient::DESTROY = sub { $orig->(@_); $foo = 1 };

{
    my $client = XML::Atom::Client->new;
};

ok $foo;