You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
109 lines
2.5 KiB
109 lines
2.5 KiB
[ -d .git/refs/tags ] || mkdir -p .git/refs/tags |
|
|
|
:> sed.script |
|
|
|
# Answer the sha1 has associated with the tag. The tag must exist in .git or .git/refs/tags |
|
tag() |
|
{ |
|
_tag=$1 |
|
[ -f .git/refs/tags/$_tag ] || error "tag: \"$_tag\" does not exist" |
|
cat .git/refs/tags/$_tag |
|
} |
|
|
|
# Generate a commit using the text specified to make it unique and the tree |
|
# named by the tag specified. |
|
unique_commit() |
|
{ |
|
_text=$1 |
|
_tree=$2 |
|
shift 2 |
|
echo $_text | git-commit-tree $(tag $_tree) "$@" |
|
} |
|
|
|
# Save the output of a command into the tag specified. Prepend |
|
# a substitution script for the tag onto the front of sed.script |
|
save_tag() |
|
{ |
|
_tag=$1 |
|
[ -n "$_tag" ] || error "usage: save_tag tag commit-args ..." |
|
shift 1 |
|
"$@" >.git/refs/tags/$_tag |
|
|
|
echo "s/$(tag $_tag)/$_tag/g" > sed.script.tmp |
|
cat sed.script >> sed.script.tmp |
|
rm sed.script |
|
mv sed.script.tmp sed.script |
|
} |
|
|
|
# Replace unhelpful sha1 hashses with their symbolic equivalents |
|
entag() |
|
{ |
|
sed -f sed.script |
|
} |
|
|
|
# Execute a command after first saving, then setting the GIT_AUTHOR_EMAIL |
|
# tag to a specified value. Restore the original value on return. |
|
as_author() |
|
{ |
|
_author=$1 |
|
shift 1 |
|
_save=$GIT_AUTHOR_EMAIL |
|
|
|
export GIT_AUTHOR_EMAIL="$_author" |
|
"$@" |
|
export GIT_AUTHOR_EMAIL="$_save" |
|
} |
|
|
|
commit_date() |
|
{ |
|
_commit=$1 |
|
git-cat-file commit $_commit | sed -n "s/^committer .*> \([0-9]*\) .*/\1/p" |
|
} |
|
|
|
on_committer_date() |
|
{ |
|
_date=$1 |
|
shift 1 |
|
GIT_COMMITTER_DATE=$_date "$@" |
|
} |
|
|
|
# Execute a command and suppress any error output. |
|
hide_error() |
|
{ |
|
"$@" 2>/dev/null |
|
} |
|
|
|
check_output() |
|
{ |
|
_name=$1 |
|
shift 1 |
|
if eval "$*" | entag > $_name.actual |
|
then |
|
diff $_name.expected $_name.actual |
|
else |
|
return 1; |
|
fi |
|
} |
|
|
|
# Turn a reasonable test description into a reasonable test name. |
|
# All alphanums translated into -'s which are then compressed and stripped |
|
# from front and back. |
|
name_from_description() |
|
{ |
|
tr "'" '-' | tr '~`!@#$%^&*()_+={}[]|\;:"<>,/? ' '-' | tr -s '-' | tr '[A-Z]' '[a-z]' | sed "s/^-*//;s/-*\$//" |
|
} |
|
|
|
|
|
# Execute the test described by the first argument, by eval'ing |
|
# command line specified in the 2nd argument. Check the status code |
|
# is zero and that the output matches the stream read from |
|
# stdin. |
|
test_output_expect_success() |
|
{ |
|
_description=$1 |
|
_test=$2 |
|
[ $# -eq 2 ] || error "usage: test_output_expect_success description test <<EOF ... EOF" |
|
_name=$(echo $_description | name_from_description) |
|
cat > $_name.expected |
|
test_expect_success "$_description" "check_output $_name \"$_test\"" |
|
}
|
|
|