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 hashses 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 }