diff options
Diffstat (limited to 't/02auto.t')
-rw-r--r-- | t/02auto.t | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -2,43 +2,43 @@ use lib qw(t lib); use strict; use TestBackup; -use File::Backup qw(backup_numbered backup_auto); +use File::BackupCopy qw(backup_copy_numbered backup_copy_auto); plan test => 16; makefile('a'); -my $name = backup_auto('a'); +my $name = backup_copy_auto('a'); ok($name, 'a~'); fileok('a', $name); -$name = backup_numbered('a'); +$name = backup_copy_numbered('a'); ok($name, 'a.~1~'); fileok('a', $name); -$name = backup_auto('a'); +$name = backup_copy_auto('a'); ok($name, 'a.~2~'); fileok('a', $name); mkdir "subdir"; -$name = backup_auto('a', dir => 'subdir'); +$name = backup_copy_auto('a', dir => 'subdir'); ok($name, File::Spec->catfile('subdir','a~')); fileok('a', $name); -$name = backup_auto('a', dir => 'subdir'); +$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~'))); -$name = backup_auto('a', dir => 'subdir'); +$name = backup_copy_auto('a', dir => 'subdir'); ok($name, File::Spec->catfile('subdir','a.~2~')); fileok('a', $name); eval { - backup_auto('a', dir => 'nonexisting'); + backup_copy_auto('a', dir => 'nonexisting'); }; ok(!!$@); -$name = backup_auto('a', dir => 'nonexisting', error => \my $err); +$name = backup_copy_auto('a', dir => 'nonexisting', error => \my $err); ok(!defined($name)); ok(defined($err) && $err ne ''); |