blob: a71e7f97e3701783ef90734c0e4b27afb2d76a53 (
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/bin/bash
set -e
. tests/lib
t-restrict x-dgit-intree-only
# we need the .pod source, which is not shipped
cd $tmp
: ----- extract args from document -----
perl -ne '
BEGIN { print "\n=head1 dgit-test-title\n\n"; }
next unless
m/^=for dgit-test dpkg-source-ignores begin/..
m/^=for dgit-test dpkg-source-ignores end/;
next unless m/dpkg-buildpackage.*-i.*-I/;
s/\s*dpkg-buildpackage\s+//;
s/\s+-S\s*//;
print;
' $root/dgit-maint-merge.7.pod >doc.pod
pod2text doc.pod >doc.txt
perl -ne '
next unless m/\S/;
next if m/dgit-test-title/;
print "for arg in ";
print;
print " do\n";
' doc.txt >doc.sh
cat >>doc.sh <<'END'
printf "%s\n" "$arg"
done
END
chmod +x doc.sh
./doc.sh >doc.args
: ----- extract args from dgit -----
args=$( t-dgit print-dpkg-source-ignores )
>dgit.args
for arg in $args; do
printf >>dgit.args "%s\n" "$arg"
done
: ----- compare -----
diff -u dgit.args doc.args
t-ok
|