diff options
Diffstat (limited to 't/02auto.t')
-rw-r--r-- | t/02auto.t | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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'); |