]>
Commit | Line | Data |
---|---|---|
ce11895d JS |
1 | [ -d .git/refs/tags ] || mkdir -p .git/refs/tags |
2 | ||
28346d2d | 3 | :> sed.script |
ce11895d JS |
4 | |
5 | # Answer the sha1 has associated with the tag. The tag must exist in .git or .git/refs/tags | |
6 | tag() | |
7 | { | |
8 | _tag=$1 | |
9 | [ -f .git/refs/tags/$_tag ] || error "tag: \"$_tag\" does not exist" | |
10 | cat .git/refs/tags/$_tag | |
11 | } | |
12 | ||
13 | # Generate a commit using the text specified to make it unique and the tree | |
14 | # named by the tag specified. | |
15 | unique_commit() | |
16 | { | |
17 | _text=$1 | |
18 | _tree=$2 | |
19 | shift 2 | |
a6080a0a | 20 | echo $_text | git-commit-tree $(tag $_tree) "$@" |
ce11895d JS |
21 | } |
22 | ||
23 | # Save the output of a command into the tag specified. Prepend | |
28346d2d | 24 | # a substitution script for the tag onto the front of sed.script |
ce11895d JS |
25 | save_tag() |
26 | { | |
a6080a0a | 27 | _tag=$1 |
ce11895d JS |
28 | [ -n "$_tag" ] || error "usage: save_tag tag commit-args ..." |
29 | shift 1 | |
a6080a0a | 30 | "$@" >.git/refs/tags/$_tag |
f6069c59 | 31 | |
28346d2d JS |
32 | echo "s/$(tag $_tag)/$_tag/g" > sed.script.tmp |
33 | cat sed.script >> sed.script.tmp | |
34 | rm sed.script | |
35 | mv sed.script.tmp sed.script | |
ce11895d JS |
36 | } |
37 | ||
a6080a0a | 38 | # Replace unhelpful sha1 hashses with their symbolic equivalents |
ce11895d JS |
39 | entag() |
40 | { | |
28346d2d | 41 | sed -f sed.script |
ce11895d JS |
42 | } |
43 | ||
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. | |
46 | as_author() | |
47 | { | |
48 | _author=$1 | |
49 | shift 1 | |
50 | _save=$GIT_AUTHOR_EMAIL | |
51 | ||
52 | export GIT_AUTHOR_EMAIL="$_author" | |
53 | "$@" | |
47e013f9 JH |
54 | if test -z "$_save" |
55 | then | |
56 | unset GIT_AUTHOR_EMAIL | |
57 | else | |
58 | export GIT_AUTHOR_EMAIL="$_save" | |
59 | fi | |
ce11895d JS |
60 | } |
61 | ||
62 | commit_date() | |
63 | { | |
64 | _commit=$1 | |
a6080a0a | 65 | git-cat-file commit $_commit | sed -n "s/^committer .*> \([0-9]*\) .*/\1/p" |
ce11895d JS |
66 | } |
67 | ||
68 | on_committer_date() | |
69 | { | |
70 | _date=$1 | |
71 | shift 1 | |
933e4f09 EW |
72 | export GIT_COMMITTER_DATE="$_date" |
73 | "$@" | |
74 | unset GIT_COMMITTER_DATE | |
ce11895d JS |
75 | } |
76 | ||
77 | # Execute a command and suppress any error output. | |
78 | hide_error() | |
79 | { | |
80 | "$@" 2>/dev/null | |
81 | } | |
82 | ||
83 | check_output() | |
84 | { | |
85 | _name=$1 | |
86 | shift 1 | |
87 | if eval "$*" | entag > $_name.actual | |
88 | then | |
89 | diff $_name.expected $_name.actual | |
90 | else | |
91 | return 1; | |
92 | fi | |
93 | } | |
94 | ||
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() | |
99 | { | |
100 | tr "'" '-' | tr '~`!@#$%^&*()_+={}[]|\;:"<>,/? ' '-' | tr -s '-' | tr '[A-Z]' '[a-z]' | sed "s/^-*//;s/-*\$//" | |
101 | } | |
102 | ||
103 | ||
104 | # Execute the test described by the first argument, by eval'ing | |
105 | # command line specified in the 2nd argument. Check the status code | |
a6080a0a | 106 | # is zero and that the output matches the stream read from |
ce11895d JS |
107 | # stdin. |
108 | test_output_expect_success() | |
a6080a0a | 109 | { |
ce11895d JS |
110 | _description=$1 |
111 | _test=$2 | |
112 | [ $# -eq 2 ] || error "usage: test_output_expect_success description test <<EOF ... EOF" | |
113 | _name=$(echo $_description | name_from_description) | |
114 | cat > $_name.expected | |
a6080a0a | 115 | test_expect_success "$_description" "check_output $_name \"$_test\"" |
ce11895d | 116 | } |