1# -*- perl -*- 2use lib qw(t lib); 3use strict; 4use TestBackup; 5use File::BackupCopy; 6 7plan test => 16; 8 9makefile('a'); 10 11sub test_envar { 12 my ($val, $exp) = @_; 13 $ENV{VERSION_CONTROL} = $val; 14 my $name = backup_copy('a'); 15 if (defined($exp)) { 16 ok($name,$exp); 17 fileok($name,'a'); 18 } else { 19 ok(!defined($name)); 20 } 21} 22 23test_envar 'none'; 24test_envar 'off'; 25test_envar 'never', 'a~'; 26test_envar 'simple', 'a~'; 27test_envar 'numbered', 'a.~1~'; 28test_envar 't', 'a.~2~'; 29test_envar 'nil', 'a.~3~'; 30test_envar 'existing', 'a.~4~'; 31unlink qw(a.~1~ a.~2~ a.~3~ a.~4~); 32test_envar 'existing', 'a~'; 33 34