+t-ref-same () {
+ local name="$1"
+ local val=`t-git-get-ref $name`
+ t-ref-same-val "$name" $val
+}
+
+t-ref-head () {
+ local val=`git rev-parse HEAD`
+ t-ref-same-val HEAD $val
+}
+
+t-ref-same-val () {
+ local name="$1"
+ local val=$2
+ case "$t_ref_val" in
+ '') ;;
+ "$val") ;;
+ *) fail "ref varies: $name: $val != $t_ref_val" ;;
+ esac
+ t_ref_val="$val"
+}
+
+t-refs-same-start () {
+ t_ref_val=''