fi
}
+t-has-parent () {
+ # t-has-parent CHILD PARENT
+ local child=$1
+ local parent=$2
+ local parents=$(git show --pretty=format:' %P ' "$child")
+ parent=$(git rev-parse "$parent~0")
+ case "$parents" in
+ *" $parent "*) ;;
+ *) fail "child $child lacks parent $parent" ;;
+ esac
+}
+
t-prep-newpackage () {
t-select-package $1
v=$2
t-ref-same-val () {
local name="$1"
local val=$2
- case "$t_ref_val" in
- '') ;;
+ case "${t_ref_val-unset}" in
+ unset) ;;
"$val") ;;
*) fail "ref varies: $name:\
${val:-nothing} != ${t_ref_val:-nothing}" ;;
}
t-refs-same-start () {
- t_ref_val=''
+ unset t_ref_val
}
t-refs-same () {