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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl -w
# The script tests Arch::Test::Framework methods.
use FindBin;
use lib "$FindBin::Bin/../perllib";
use Test::More tests => 17;
use_ok("Arch::Test::Framework");
my $arch_user = 'Arch Test';
my $arch_uid = 'arch-test@my.place';
my $arch_id = "$arch_user <$arch_uid>";
my $fw = Arch::Test::Framework->new(userid => $arch_id);
isa_ok($fw, 'Arch::Test::Framework', 'environment');
my $home = $fw->home_dir;
my $len = length $home;
ok(-d $home, 'environment home exists');
ok(-d "$home/.arch-params", 'environment has arch-params');
isnt($home, $ENV{HOME}, 'environment home is not user home');
is($fw->arch_uid, $arch_uid, 'arch uid correctly set');
is($fw->run_tla('my-id', '--uid'), $fw->arch_uid, 'arch uid correctly set');
my $local_uid = `tla my-id --uid`;
chomp $local_uid;
isnt($local_uid, $fw->arch_uid, 'correctly uses new home directory');
ok(-d $fw->library_dir, 'library dir exists');
is(substr($fw->library_dir, 0, $len), $home, 'library dir is in home');
ok(-d $fw->archives_dir, 'archives dir exists');
is(substr($fw->archives_dir, 0, $len), $home, 'archives dir is in home');
ok(-d $fw->trees_dir, 'trees dir exists');
is(substr($fw->trees_dir, 0, $len), $home, 'trees dir is in home');
my $ar1 = $fw->make_archive;
isa_ok(
$ar1,
'Arch::Test::Archive',
'make_archive creates Arch::Test::Archive'
);
isnt(
$fw->run_tla('whereis-archive', $ar1->name),
'',
'make_archive registers archive'
);
my $ar2 = $fw->make_archive;
isnt($ar1->name, $ar2->name, 'make_archive generates unique archive names');
|
