-chk () {
- p=$1
- v=$2
-
- t-archive $p $v
- t-git-none
- t-dgit --no-rm-on-error clone $p
-
- # And now we make an update using the same orig tarball, and
- # check that the orig import is stable.
-
- cd $p
-
- git branch first-import
-
- m='Commit for import check'
- echo "$m" >>import-check
-
- v=${v%-*}-99
- dch -v $v -D unstable -m "$m"
-
- git add import-check debian/changelog
- git commit -m "$m"
-
- t-dgit -wgf quilt-fixup
- t-dgit -wgf build-source
-
- # The resulting .dsc does not have a Dgit line (because dgit push
- # puts that in). So we just shove it in the archive now
-
- ln ../${p}_${v}.* $tmp/mirror/pool/main/
- t-archive-query
-
- t-dgit fetch
-
- git branch first-2nd-import remotes/dgit/dgit/sid
-
- t-git-next-date
-
- git update-ref refs/remotes/dgit/dgit/sid first-import
-
- t-dgit fetch
-
- t-refs-same-start
- t-ref-same refs/remotes/dgit/dgit/sid
- t-ref-same refs/heads/first-2nd-import
-
- for orig in ../${p}_${v%-*}.orig*.tar.*; do
- orig=${orig#../}
- pat="^Import ${orig//./\\.}\$"
- t-refs-same-start
- for start in first-import first-2nd-import; do
- git log --pretty='tformat:%H' --grep "$pat" $start \
- >../t.imp
- test $(wc -l <../t.imp) = 1
- imp=$(cat ../t.imp)
- t-ref-same-val "$orig $start" "$imp"
- done
- done
- cd ..
-}
-