3
use Test::More tests => 6;
4
use File::Path q(rmtree);
5
use File::Temp qw(tempdir);
7
# shut up about variables that are only used once.
8
# these come from constants and variables used
9
# by the bindings but not elsewhere in perl space.
18
our @ISA = qw(SVN::Delta::Editor);
21
my ($self, $path, undef, undef, undef, $pool) = @_;
23
main::is_pool_default ($pool, 'default pool from c calls');
28
my ($pool, $text) = @_;
29
is (ref ($pool) eq 'SVN::Pool' ? $$$pool : $$pool,
30
$$SVN::_Core::current_pool, $text);
33
my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
37
ok($repos = SVN::Repos::create("$repospath", undef, undef, undef, undef),
38
"create repository at $repospath");
42
my $pool = SVN::Pool->new_default;
44
is_pool_default ($pool, 'default pool');
47
my $spool = SVN::Pool->new_default_sub;
48
is_pool_default ($spool, 'lexical default pool default');
51
is_pool_default ($pool, 'lexical default pool destroyed');
53
my $root = $fs->revision_root (0);
55
my $txn = $fs->begin_txn(0);
57
$txn->root->make_dir('trunk');
62
SVN::Repos::dir_delta ($root, '', '',
63
$fs->revision_root (1), '',
68
is_pool_default ($pool, 'default pool from c calls destroyed');