1 [ -d .git
/refs
/tags
] || mkdir
-p .git
/refs
/tags
5 # Answer the sha1 has associated with the tag. The tag must exist in .git or .git/refs/tags
9 [ -f .git
/refs
/tags
/$_tag ] || error
"tag: \"$_tag\" does not exist"
10 cat .git
/refs
/tags
/$_tag
13 # Generate a commit using the text specified to make it unique and the tree
14 # named by the tag specified.
20 echo $_text | git commit-tree $
(tag
$_tree) "$@"
23 # Save the output of a command into the tag specified. Prepend
24 # a substitution script for the tag onto the front of sed.script
28 [ -n "$_tag" ] || error
"usage: save_tag tag commit-args ..."
30 "$@" >.git
/refs
/tags
/$_tag
32 echo "s/$(tag $_tag)/$_tag/g" > sed.
script.tmp
33 cat sed.
script >> sed.
script.tmp
35 mv sed.
script.tmp
sed.
script
38 # Replace unhelpful sha1 hashses with their symbolic equivalents
44 # Execute a command after first saving, then setting the GIT_AUTHOR_EMAIL
45 # tag to a specified value. Restore the original value on return.
50 _save
=$GIT_AUTHOR_EMAIL
52 export GIT_AUTHOR_EMAIL
="$_author"
56 unset GIT_AUTHOR_EMAIL
58 export GIT_AUTHOR_EMAIL
="$_save"
65 git cat-file commit
$_commit |
sed -n "s/^committer .*> \([0-9]*\) .*/\1/p"
72 export GIT_COMMITTER_DATE
="$_date"
74 unset GIT_COMMITTER_DATE
77 # Execute a command and suppress any error output.
87 if eval "$*" | entag
> $_name.actual
89 diff $_name.expected
$_name.actual
95 # Turn a reasonable test description into a reasonable test name.
96 # All alphanums translated into -'s which are then compressed and stripped
97 # from front and back.
98 name_from_description
()
101 tr '~`!@#$%^&*()_+={}[]|\;:"<>,/? ' \
102 '------------------------------' |
103 tr -s '-' |
tr '[A-Z]' '[a-z]' |
sed "s/^-*//;s/-*\$//"
107 # Execute the test described by the first argument, by eval'ing
108 # command line specified in the 2nd argument. Check the status code
109 # is zero and that the output matches the stream read from
111 test_output_expect_success
()
115 [ $# -eq 2 ] || error
"usage: test_output_expect_success description test <<EOF ... EOF"
116 _name
=$
(echo $_description | name_from_description
)
117 cat > $_name.expected
118 test_expect_success
"$_description" "check_output $_name \"$_test\""