#!/usr/bin/perl -w
# Testing to make sure Test::Builder doesn't accidentally store objects
# passed in as test arguments.
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = '../lib';
}
}
use Test::More tests => 4;
package Foo;
my $destroyed = 0;
sub new { bless {}, shift }
sub DESTROY {
$destroyed++;
}
package main;
for (1..3) {
ok(my $foo = Foo->new, 'created Foo object');
}
is $destroyed, 3, "DESTROY called 3 times";
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| Builder.t | File | 635 B | 0644 |
|
| carp.t | File | 587 B | 0644 |
|
| create.t | File | 818 B | 0644 |
|
| current_test.t | File | 259 B | 0644 |
|
| current_test_without_plan.t | File | 233 B | 0644 |
|
| details.t | File | 2.98 KB | 0644 |
|
| done_testing.t | File | 235 B | 0644 |
|
| done_testing_double.t | File | 912 B | 0644 |
|
| done_testing_plan_mismatch.t | File | 787 B | 0644 |
|
| done_testing_with_no_plan.t | File | 152 B | 0644 |
|
| done_testing_with_number.t | File | 236 B | 0644 |
|
| done_testing_with_plan.t | File | 153 B | 0644 |
|
| fork_with_new_stdout.t | File | 907 B | 0644 |
|
| has_plan.t | File | 366 B | 0644 |
|
| has_plan2.t | File | 355 B | 0644 |
|
| is_fh.t | File | 975 B | 0644 |
|
| is_passing.t | File | 2.2 KB | 0644 |
|
| maybe_regex.t | File | 1.28 KB | 0644 |
|
| no_diag.t | File | 148 B | 0644 |
|
| no_ending.t | File | 345 B | 0644 |
|
| no_header.t | File | 298 B | 0644 |
|
| no_plan_at_all.t | File | 722 B | 0644 |
|
| ok_obj.t | File | 462 B | 0644 |
|
| output.t | File | 1.95 KB | 0644 |
|
| reset.t | File | 2 KB | 0644 |
|
| reset_outputs.t | File | 784 B | 0644 |
|
| try.t | File | 747 B | 0644 |
|