builtin/apply: avoid parameter shadowing 'linenr' global
[git] / t / lib-t6000.sh
1 : included from 6002 and others
2
3 mkdir -p .git/refs/tags
4
5 >sed.script
6
7 # Answer the sha1 has associated with the tag. The tag must exist in .git/refs/tags
8 tag () {
9         _tag=$1
10         test -f ".git/refs/tags/$_tag" || error "tag: \"$_tag\" does not exist"
11         cat ".git/refs/tags/$_tag"
12 }
13
14 # Generate a commit using the text specified to make it unique and the tree
15 # named by the tag specified.
16 unique_commit () {
17         _text=$1
18         _tree=$2
19         shift 2
20         echo "$_text" | git commit-tree $(tag "$_tree") "$@"
21 }
22
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
25 save_tag () {
26         _tag=$1
27         test -n "$_tag" || error "usage: save_tag tag commit-args ..."
28         shift 1
29         "$@" >".git/refs/tags/$_tag"
30
31         echo "s/$(tag $_tag)/$_tag/g" >sed.script.tmp
32         cat sed.script >>sed.script.tmp
33         rm sed.script
34         mv sed.script.tmp sed.script
35 }
36
37 # Replace unhelpful sha1 hashes with their symbolic equivalents
38 entag () {
39         sed -f sed.script
40 }
41
42 # Execute a command after first saving, then setting the GIT_AUTHOR_EMAIL
43 # tag to a specified value. Restore the original value on return.
44 as_author () {
45         _author=$1
46         shift 1
47         _save=$GIT_AUTHOR_EMAIL
48
49         GIT_AUTHOR_EMAIL="$_author"
50         export GIT_AUTHOR_EMAIL
51         "$@"
52         if test -z "$_save"
53         then
54                 unset GIT_AUTHOR_EMAIL
55         else
56                 GIT_AUTHOR_EMAIL="$_save"
57                 export GIT_AUTHOR_EMAIL
58         fi
59 }
60
61 commit_date () {
62         _commit=$1
63         git cat-file commit $_commit |
64         sed -n "s/^committer .*> \([0-9]*\) .*/\1/p"
65 }
66
67 # Assign the value of fake date to a variable, but
68 # allow fairly common "1971-08-16 00:00" to be omittd
69 assign_fake_date () {
70         case "$2" in
71         ??:??:??)       eval "$1='1971-08-16 $2'" ;;
72         ??:??)          eval "$1='1971-08-16 00:$2'" ;;
73         ??)             eval "$1='1971-08-16 00:00:$2'" ;;
74         *)              eval "$1='$2'" ;;
75         esac
76 }
77
78 on_committer_date () {
79         assign_fake_date GIT_COMMITTER_DATE "$1"
80         export GIT_COMMITTER_DATE
81         shift 1
82         "$@"
83 }
84
85 on_dates () {
86         assign_fake_date GIT_COMMITTER_DATE "$1"
87         assign_fake_date GIT_AUTHOR_DATE "$2"
88         export GIT_COMMITTER_DATE GIT_AUTHOR_DATE
89         shift 2
90         "$@"
91 }
92
93 # Execute a command and suppress any error output.
94 hide_error () {
95         "$@" 2>/dev/null
96 }
97
98 check_output () {
99         _name=$1
100         shift 1
101         if eval "$*" | entag >"$_name.actual"
102         then
103                 test_cmp "$_name.expected" "$_name.actual"
104         else
105                 return 1
106         fi
107 }
108
109 # Turn a reasonable test description into a reasonable test name.
110 # All alphanums translated into -'s which are then compressed and stripped
111 # from front and back.
112 name_from_description () {
113         perl -pe '
114                 s/[^A-Za-z0-9.]/-/g;
115                 s/-+/-/g;
116                 s/-$//;
117                 s/^-//;
118                 y/A-Z/a-z/;
119         '
120 }
121
122
123 # Execute the test described by the first argument, by eval'ing
124 # command line specified in the 2nd argument. Check the status code
125 # is zero and that the output matches the stream read from
126 # stdin.
127 test_output_expect_success()
128 {
129         _description=$1
130         _test=$2
131         test $# -eq 2 ||
132         error "usage: test_output_expect_success description test <<EOF ... EOF"
133
134         _name=$(echo $_description | name_from_description)
135         cat >"$_name.expected"
136         test_expect_success "$_description" "check_output $_name \"$_test\""
137 }