File: leak.t

package info (click to toggle)
libdevel-pragma-perl 0.60-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 456 kB
  • ctags: 812
  • sloc: perl: 719; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 448 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/env perl

use strict;
use warnings;

use lib qw(t/lib);

use Test::More tests => 4;

# Confirm that values in %^H don't leak across require()

{
    use Devel::Pragma qw(:all);

    BEGIN { hints->{'Devel::Pragma::Test'} = 1 }
    BEGIN { is($^H{'Devel::Pragma::Test'}, 1) }

    use leak;

    BEGIN { is($^H{'Devel::Pragma::Test'}, 1) }

    my $hh = leak::hh();
    isa_ok($hh, 'HASH');
    is($hh->{'Devel::Pragma::Test'}, undef);
}