Tmpfile.topt   [plain text]

use lib "./t";
use MIME::Tools qw(tmpopen);
use ExtUtils::TBone;
use FileHandle;

# Create checker:
my $ntests = 800;
my $T = typical ExtUtils::TBone;
$T->begin($ntests);

# Run the test:
my $i;
for ($i = 0; $i < $ntests; $i++) {
### print STDERR "+";
    STDERR->flush;
    leak();
}

# leak
sub leak {
    my $TMP = (tmpopen() || die "tmpopen: $!");
    print $TMP "Hello!\nGoodbye!\n";
    seek($TMP, 0, 0);
    my $line = <$TMP>;
    $T->ok($line, "Hello!\n");
    # no close! hopefully, the destructor will handle it!
}




1;