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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/local/bin/perl -w
=head1 NAME
vss.t - testing of vcp vss i/o
=cut
use strict ;
use Test ;
use File::Path ;
use VCP::TestUtils ;
my @vcp = vcp_cmd ;
my $t = -d 't' ? 't/' : '';
my $project = "revml2vss";
my $vssroot_1 = "${t}vssroot_1";
my $vssstate_1 = "${t}vssstate_1";
my $vss_spec = "vss:Admin\@$vssroot_1:$project/...";
my $vss_repo_id = "vss:test_repository";
my $infile = $t . "test-vss-in-1.revml" ;
my @tests = (
## copy vssroot_0 to vssroot_1
sub {
my $vssroot_0 = "${t}vssroot_0";
my $vssstate_0 = "${t}vssstate_0";
rmtree [ grep -e, $vssroot_1, $vssstate_1 ];
copy_dir_tree $vssroot_0, $vssroot_1;
copy_dir_tree $vssstate_0, $vssstate_1;
ok 1;
},
## revml -> vss
sub {
ok run [ @vcp, "revml:$infile", $vss_spec,
"--db-dir=$vssstate_1",
"--repo-id=$vss_repo_id",
];
},
## slurp revml files and analyze with regexps to count number of
## unique named files and the highest change number for each file,
## then look at the head_revs_db to see if the repository really
## contains all that.
## detailed analysis of this import is left to 91vss2revml.t
sub {
my $infile0 = "${t}test-vss-in-0.revml" ;
my $revs1 = parse_files_and_revids_from_head_revs_db {
state_dir => $vssstate_1,
repo_id => $vss_repo_id,
remove_rev_root => "/ignored/"
};
my $revs2 = parse_files_and_revids_from_revml $infile0, $infile;
ok_or_diff $revs1, $revs2;
},
) ; # end @tests
plan tests => scalar @tests ;
my $why_skip = vss_borken ;
$why_skip ? skip $why_skip, 1 : $_->() for @tests ;
|
