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