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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use File::TreeCreate ();
use File::Find::Object ();
use File::Path;
package MyFFO;
use vars qw(@ISA);
@ISA = (qw(File::Find::Object));
sub DESTROY
{
my $self = shift;
$self->{'**DESTROY**'}->();
}
package main;
my $destroy_counter = 0;
sub my_destroy
{
$destroy_counter++;
}
{
my $tree = {
'name' => "destroy--traverse-1/",
'subs' => [
{
'name' => "b.doc",
'contents' => "This file was spotted in the wild.",
},
{
'name' => "a/",
},
{
'name' => "foo/",
'subs' => [
{
'name' => "yet/",
},
],
},
],
};
my $t = File::TreeCreate->new();
$t->create_tree( "./t/sample-data/", $tree );
my $ff =
MyFFO->new( {}, $t->get_path("./t/sample-data/destroy--traverse-1") );
$ff->{'**DESTROY**'} = \&my_destroy;
my @results;
for my $i ( 1 .. 6 )
{
push @results, $ff->next();
}
# TEST
is_deeply(
\@results,
[
(
map { $t->get_path("t/sample-data/destroy--traverse-1/$_") } (
"", qw(
a
b.doc
foo
foo/yet
)
)
),
undef
],
"Checking for regular, lexicographically sorted order",
);
rmtree( $t->get_path("./t/sample-data/destroy--traverse-1") )
}
# TEST
is( $destroy_counter, 1,
"Check that the object was destroyed when it goes out of scope." );
|
