Rename package to File::BackupCopy

5 files changed, 38 insertions, 38 deletions

diff --git a/t/00simple.t b/t/00simple.t
index bf4f71a..10faef6 100644
--- a/t/00simple.t
+++ b/t/00simple.t
@@ -2,36 +2,36 @@
 use lib qw(t lib);
 use strict;
 use TestBackup;
-use File::Backup qw(backup_simple);
+use File::BackupCopy qw(backup_copy_simple);
     
 plan test => 9;
 
 makefile('a');
 
-my $name = backup_simple('a');
+my $name = backup_copy_simple('a');
 ok($name, 'a~');
 fileok('a', $name);
 
-$name = backup_simple('a');
+$name = backup_copy_simple('a');
 ok($name, 'a~');
 fileok('a', $name);
 
 mkdir "subdir";
-$name = backup_simple('a', dir => 'subdir');
+$name = backup_copy_simple('a', dir => 'subdir');
 ok($name, File::Spec->catfile('subdir','a~'));
 fileok('a', $name);
 
 eval {
-    backup_simple('a', dir => 'nonexisting');
+    backup_copy_simple('a', dir => 'nonexisting');
 };
 ok(!!$@);
 
-$name = backup_simple('a', dir => 'nonexisting', error => \my $err);
+$name = backup_copy_simple('a', dir => 'nonexisting', error => \my $err);
 ok(!defined($name));
 ok(defined($err) && $err ne '');
 
 # chmod 0, 'subdir';
-# $name = backup_simple('a', dir => 'subdir', error => \$err);
+# $name = backup_copy_simple('a', dir => 'subdir', error => \$err);
 # ok(!defined($name));
 # print "$err\n";
 
diff --git a/t/01numbered.t b/t/01numbered.t
index c4cd06a..50572c8 100644
--- a/t/01numbered.t
+++ b/t/01numbered.t
@@ -2,31 +2,31 @@
 use lib qw(t lib);
 use strict;
 use TestBackup;
-use File::Backup qw(backup_numbered);
+use File::BackupCopy qw(backup_copy_numbered);
     
 plan test => 9;
 
 makefile('a');
 
-my $name = backup_numbered('a');
+my $name = backup_copy_numbered('a');
 ok($name, 'a.~1~');
 fileok('a', $name);
 
-$name = backup_numbered('a');
+$name = backup_copy_numbered('a');
 ok($name, 'a.~2~');
 fileok('a', $name);
     
 mkdir "subdir";
-$name = backup_numbered('a', dir => 'subdir');
+$name = backup_copy_numbered('a', dir => 'subdir');
 ok($name, File::Spec->catfile('subdir','a.~1~'));
 fileok('a', $name);
 
 eval {
-    backup_numbered('a', dir => 'nonexisting');
+    backup_copy_numbered('a', dir => 'nonexisting');
 };
 ok(!!$@);
 
-$name = backup_numbered('a', dir => 'nonexisting', error => \my $err);
+$name = backup_copy_numbered('a', dir => 'nonexisting', error => \my $err);
 ok(!defined($name));
 ok(defined($err) && $err ne '');
     
diff --git a/t/02auto.t b/t/02auto.t
index 4717020..0a01d84 100644
--- a/t/02auto.t
+++ b/t/02auto.t
@@ -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 '');
diff --git a/t/03backup.t b/t/03backup.t
index 2b9297d..b040ba7 100644
--- a/t/03backup.t
+++ b/t/03backup.t
@@ -2,62 +2,62 @@
 use lib qw(t lib);
 use strict;
 use TestBackup;
-use File::Backup;
+use File::BackupCopy;
     
 plan test => 24;
 
 makefile('a');
 
-my $name = backup('a',BACKUP_NONE);
+my $name = backup_copy('a',BACKUP_NONE);
 ok(!defined($name));
 
-$name = backup('a',BACKUP_SIMPLE);
+$name = backup_copy('a',BACKUP_SIMPLE);
 ok($name, 'a~');
 fileok('a', $name);
 
-$name = backup('a',BACKUP_AUTO);
+$name = backup_copy('a',BACKUP_AUTO);
 ok($name, 'a~');
 fileok('a', $name);
 
-$name = backup('a',BACKUP_NUMBERED);
+$name = backup_copy('a',BACKUP_NUMBERED);
 ok($name, 'a.~1~');
 fileok('a', $name);
 
-$name = backup('a',BACKUP_AUTO);
+$name = backup_copy('a',BACKUP_AUTO);
 ok($name, 'a.~2~');
 fileok('a', $name);
 
-$name = backup('a');
+$name = backup_copy('a');
 ok($name, 'a.~3~');
 fileok('a', $name);
 
-$name = backup('a', type => BACKUP_SIMPLE);
+$name = backup_copy('a', type => BACKUP_SIMPLE);
 ok($name, 'a~');
 fileok('a', $name);
 
 mkdir "subdir";
-$name = backup('a', dir => 'subdir', type => BACKUP_SIMPLE);
+$name = backup_copy('a', dir => 'subdir', type => BACKUP_SIMPLE);
 ok($name, File::Spec->catfile('subdir','a~'));
 fileok('a', $name);
 
-$name = backup('a', dir => 'subdir', type => BACKUP_AUTO);
+$name = backup_copy('a', dir => 'subdir', type => BACKUP_AUTO);
 ok($name, File::Spec->catfile('subdir','a~'));
 fileok('a', $name);
 
-$name = backup('a', dir => 'subdir', type => BACKUP_NUMBERED);
+$name = backup_copy('a', dir => 'subdir', type => BACKUP_NUMBERED);
 ok($name, File::Spec->catfile('subdir','a.~1~'));
 fileok('a', $name);
 
-$name = backup('a', dir => 'subdir', type => BACKUP_AUTO);
+$name = backup_copy('a', dir => 'subdir', type => BACKUP_AUTO);
 ok($name, File::Spec->catfile('subdir','a.~2~'));
 fileok('a', $name);
 
 eval {
-    backup('a', dir => 'nonexisting');
+    backup_copy('a', dir => 'nonexisting');
 };
 ok(!!$@);
 
-$name = backup('a', dir => 'nonexisting', error => \my $err);
+$name = backup_copy('a', dir => 'nonexisting', error => \my $err);
 ok(!defined($name));
 ok(defined($err) && $err ne '');
 
diff --git a/t/04envar.t b/t/04envar.t
index f87f355..f8f1761 100644
--- a/t/04envar.t
+++ b/t/04envar.t
@@ -2,7 +2,7 @@
 use lib qw(t lib);
 use strict;
 use TestBackup;
-use File::Backup;
+use File::BackupCopy;
     
 plan test => 16;
 
@@ -11,7 +11,7 @@ makefile('a');
 sub test_envar {
     my ($val, $exp) = @_;
     $ENV{VERSION_CONTROL} = $val;
-    my $name = backup('a');
+    my $name = backup_copy('a');
     if (defined($exp)) {
 	ok($name,$exp);
 	fileok($name,'a');