9dc658a1093bb81a481c493a107633a01036089c
[perl.git] / lib / Test / Simple / t / Builder / ok_obj.t
1 #!/usr/bin/perl -w
2 # $Id: /mirror/googlecode/test-more/t/Builder/ok_obj.t 60332 2008-09-09T12:24:03.060291Z schwern  $
3
4 # Testing to make sure Test::Builder doesn't accidentally store objects
5 # passed in as test arguments.
6
7 BEGIN {
8     if( $ENV{PERL_CORE} ) {
9         chdir 't';
10         @INC = '../lib';
11     }
12 }
13
14 use Test::More tests => 4;
15
16 package Foo;
17 my $destroyed = 0;
18 sub new { bless {}, shift }
19
20 sub DESTROY {
21     $destroyed++;
22 }
23
24 package main;
25
26 for (1..3) {
27     ok(my $foo = Foo->new, 'created Foo object');
28 }
29 is $destroyed, 3, "DESTROY called 3 times";
30