aboutsummaryrefslogtreecommitdiff
path: root/t/02auto.t
diff options
context:
space:
mode:
Diffstat (limited to 't/02auto.t')
-rw-r--r--t/02auto.t1
1 files changed, 1 insertions, 0 deletions
diff --git a/t/02auto.t b/t/02auto.t
index 0a01d84..61b24ed 100644
--- a/t/02auto.t
+++ b/t/02auto.t
@@ -27,12 +27,13 @@ fileok('a', $name);
$name = backup_copy_auto('a', dir => 'subdir');
ok($name, File::Spec->catfile('subdir','a~'));
fileok('a', $name);
ok(open(FH, '>', File::Spec->catfile('subdir','a.~1~')));
+close FH;
$name = backup_copy_auto('a', dir => 'subdir');
ok($name, File::Spec->catfile('subdir','a.~2~'));
fileok('a', $name);
eval {
backup_copy_auto('a', dir => 'nonexisting');

Return to:

Send suggestions and report system problems to the System administrator.