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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
use strict;
use warnings;
use v5.20;
use Test::More;
use Path::Tiny;
use autodie qw/:all/;
use File::Copy::Recursive qw(fcopy rcopy dircopy);
use DhMakeRaku qw/setup_debian_files/;
use DhMakeRaku::Config qw/dh_make_raku_config/;
use Test::File::Contents;
use lib qw(t/lib);
# cache file must be updated manually if the package used in tests are not in unstable.
use PkgCache;
my $email = $ENV{DEBEMAIL} = 'jb@team.org';
my $name = $ENV{DEBFULLNAME} = 'Joe Bar';
my @l = localtime;
my $year = $l[5]+1900;
my $oldyear = $year - 1;
my $test_target = shift @ARGV;
my $config = dh_make_raku_config;
my %tests = (
'raku-file-find' => {
args => [ 'https://github.com/tadzik/File-Find.git', 'HEAD' ] ,
check => [
'control binary:raku-file-find Synopsis' => 'File::Find for Raku',
'changelog' => qr/0\.1\.1-1/,
'examples:raku-file-find content:0' => 'examples/*',
'control source Homepage' => 'https://github.com/tadzik/File-Find',
'copyright Source' => 'https://github.com/tadzik/File-Find',
'install:"raku-file-find.docs" content:0' => 'README.md',
# TODO: check the content of gbp.conf (contains HEAD currently)
],
file_contents_like => [
'debian/gbp.conf' => qr/upstream-branch = $config->{upstream_branch}/
]
},
'raku-log' => {
args => [ 'https://git.tyil.nl/raku/Log', 'v0.3.1' ] ,
check => [
'control binary:raku-log Synopsis' => 'interface for logging mechanisms to adhere to',
'changelog' => qr/0\.3\.1-1/,
'patches:rm-shebang Synopsis' => 'Rm shebang from Raku module files',
'patches:rm-shebang diff' => qr(-#! /usr/bin/env false),
'patches:rm-shebang Author:0' => $email,
],
file_contents_like => [
'debian/gbp.conf' => qr/upstream-tag = v%\(version\)s/
]
},
'raku-config' => {
args => ['https://git.tyil.nl/raku/Config', '3.0.3'],
check => [
# versioned dependencies are removed by apply_fixes
'control source Build-Depends:2' => "raku-hash-merge",
'control source Build-Depends:3' => "raku-io-glob",
'control binary:raku-config Depends:2' => "raku-hash-merge",
'control binary:raku-config Depends:3' => "raku-io-glob",
'control binary:raku-config Depends:4' => "raku-io-path-xdg",
'control binary:raku-config Depends:5' => "raku-log"
],
file_contents_like => [
'debian/gbp.conf' => qr/upstream-tag = %\(version\)s/
]
},
);
my $wr_root = path('wr_root')->absolute;
my $source_dir = path('t/samples')->absolute;
while (my ($module, $data) = each %tests) {
next if $test_target and $module !~ qr/$test_target/;
my $target = $wr_root->child($module);
note("Running tests in $target");
$target->remove_tree;
$target->mkpath;
dircopy(
$source_dir->child($module)->stringify,
$target->stringify
) || die "dircopy -> $target failed: $!";
chdir($target);
my $root = setup_debian_files (
$config,
$target->absolute,
$data->{args}[0],
$module,
$data->{args}[1],
1,
);
while ($data->{check}->@*) {
my ($path, $to_check) = splice ($data->{check}->@*, 0, 2);
my $value = $root->grab_value($path);
if (ref($to_check) eq 'Regexp' ) {
like($value, $to_check,"check path '$path'");
}
else {
is($value, $to_check,"check path '$path'");
}
}
file_contents_like ($target->child("debian/README.source")->stringify,
qr/created by/, "check generation of README.source");
while (($data->{file_contents_like} // [])->@*) {
my ($path, $to_check) = splice ($data->{file_contents_like}->@*, 0, 2);
file_contents_like ($target->child($path)->stringify,
$to_check, "check content of $path");
}
}
done_testing;
|
