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