[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

[PATCH] make perl bindings testsuite clean up after itself

From: Peter Samuelson <peter_at_p12n.org>
Date: 2005-12-02 23:13:24 CET

File::Temp has supported the CLEANUP flag in tempdir() at least since
perl 5.6.1, so I think this is reasonable.

[[[
Cause perl bindings testsuite to clean up its subdirs from /tmp.

Patch by: Peter Samuelson <peter@p12n.org>

* subversion/bindings/swig/perl/native/t/1repos.t,
  subversion/bindings/swig/perl/native/t/2fs.t,
  subversion/bindings/swig/perl/native/t/3client.t,
  subversion/bindings/swig/perl/native/t/4pool.t,
  subversion/bindings/swig/perl/native/t/6ra.t,
  subversion/bindings/swig/perl/native/t/7editor.t,
  subversion/bindings/swig/perl/native/t/8lock.t:
    Pass CLEANUP => 1 to File::Temp::tempdir().
]]]

Index: subversion/bindings/swig/perl/native/t/4pool.t
===================================================================
--- subversion/bindings/swig/perl/native/t/4pool.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/4pool.t (copia locale)
@@ -30,7 +30,7 @@
         $$SVN::_Core::current_pool, $text);
 }
 
-my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 my $repos;
 
Index: subversion/bindings/swig/perl/native/t/7editor.t
===================================================================
--- subversion/bindings/swig/perl/native/t/7editor.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/7editor.t (copia locale)
@@ -17,7 +17,7 @@
 require SVN::Fs;
 require SVN::Delta;
 
-my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 my $repos = SVN::Repos::create("$repospath", undef, undef, undef, undef);
 my $fs = $repos->fs;
 
Index: subversion/bindings/swig/perl/native/t/8lock.t
===================================================================
--- subversion/bindings/swig/perl/native/t/8lock.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/8lock.t (copia locale)
@@ -9,7 +9,7 @@
 use File::Path qw(rmtree);
 use File::Temp qw(tempdir);
 
-my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 my $repos;
 
Index: subversion/bindings/swig/perl/native/t/3client.t
===================================================================
--- subversion/bindings/swig/perl/native/t/3client.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/3client.t (copia locale)
@@ -18,7 +18,7 @@
 
 # do not use cleanup because it will fail, some files we
 # will not have write perms to.
-my $testpath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $testpath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 my $repospath = catdir($testpath,'repo');
 my $reposurl = 'file://' . (substr($repospath,0,1) ne '/' ? '/' : '')
Index: subversion/bindings/swig/perl/native/t/6ra.t
===================================================================
--- subversion/bindings/swig/perl/native/t/6ra.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/6ra.t (copia locale)
@@ -11,7 +11,7 @@
 use SVN::Fs;
 use SVN::Delta;
 
-my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 my $repos;
 
Index: subversion/bindings/swig/perl/native/t/1repos.t
===================================================================
--- subversion/bindings/swig/perl/native/t/1repos.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/1repos.t (copia locale)
@@ -11,7 +11,7 @@
 require SVN::Delta;
 use File::Path;
 
-my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 my $repos;
 
Index: subversion/bindings/swig/perl/native/t/2fs.t
===================================================================
--- subversion/bindings/swig/perl/native/t/2fs.t (revisione 17602)
+++ subversion/bindings/swig/perl/native/t/2fs.t (copia locale)
@@ -10,7 +10,7 @@
 use File::Path qw(rmtree);
 use File::Temp qw(tempdir);
 
-my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1);
+my $repospath = tempdir('svn-perl-test-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 
 my $repos;
 

Received on Fri Dec 2 23:14:34 2005

This is an archived mail posted to the Subversion Dev mailing list.