2 t-import-chk-authorship () {
3 perl -ne 'print $1,"\n" if m/^ -- (\S.*\>) /' debian/changelog \
5 > $tmp/authorship.changelog
6 ${import_chk_changelog_massage:-:} $tmp/authorship.changelog
7 git log --pretty=format:'%an <%ae>%n%cn <%ce>' \
9 > $tmp/authorship.commits
10 diff $tmp/authorship.{changelog,commits}
22 t-dgit --no-rm-on-error clone $p
24 # And now we make an update using the same orig tarball, and
25 # check that the orig import is stable.
29 t-import-chk-authorship
31 git branch first-import
33 m='Commit for import check'
34 echo "$m" >>import-check
37 dch -v $v -D unstable -m "$m"
39 git add import-check debian/changelog
42 t-dgit -wgf quilt-fixup
43 t-dgit -wgf build-source
45 # The resulting .dsc does not have a Dgit line (because dgit push
46 # puts that in). So we just shove it in the archive now
48 ln ../${p}_${v}.* $tmp/mirror/pool/main/
53 git branch first-2nd-import remotes/dgit/dgit/sid
57 git update-ref refs/remotes/dgit/dgit/sid first-import
62 t-ref-same refs/remotes/dgit/dgit/sid
63 t-ref-same refs/heads/first-2nd-import
65 for orig in ../${p}_${v%-*}.orig*.tar.*; do
66 tar -atf $orig | LC_ALL=C sort >../files.o
67 pfx=$(perl <../files.o -ne '
69 m#^([^/]+/)# or exit 0;
77 $_="" if m/^$/ || m#/$# || m#^\.git/#;
80 pat="^Import ${orig//./\\.}\$"
82 for start in first-import first-2nd-import; do
83 git log --pretty='tformat:%H' --grep "$pat" $start \
85 test $(wc -l <../t.imp) = 1
87 t-ref-same-val "$orig $start" "$imp"
89 git ls-tree -r --name-only "$t_ref_val:" \
96 t-import-chk() { t-import-chk1 "$@"; t-import-chk2; }