git.oblomov.eu Git - git/blob - t/t6000lib.sh

   1 [ -d .git/refs/tags ] || mkdir -p .git/refs/tags
   2
   3 :> sed.script
   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
  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 {
  27         _tag=$1
  28         [ -n "$_tag" ] || error "usage: save_tag tag commit-args ..."
  29         shift 1
  30         "$@" >.git/refs/tags/$_tag
  31
  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
  36 }
  37
  38 # Replace unhelpful sha1 hashses with their symbolic equivalents
  39 entag()
  40 {
  41         sed -f sed.script
  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         GIT_AUTHOR_EMAIL="$_author"
  53         export GIT_AUTHOR_EMAIL
  54         "$@"
  55         if test -z "$_save"
  56         then
  57                 unset GIT_AUTHOR_EMAIL
  58         else
  59                 GIT_AUTHOR_EMAIL="$_save"
  60                 export GIT_AUTHOR_EMAIL
  61         fi
  62 }
  63
  64 commit_date()
  65 {
  66         _commit=$1
  67         git cat-file commit $_commit | sed -n "s/^committer .*> \([0-9]*\) .*/\1/p"
  68 }
  69
  70 on_committer_date()
  71 {
  72     _date=$1
  73     shift 1
  74     GIT_COMMITTER_DATE="$_date"
  75     export GIT_COMMITTER_DATE
  76     "$@"
  77     unset GIT_COMMITTER_DATE
  78 }
  79
  80 # Execute a command and suppress any error output.
  81 hide_error()
  82 {
  83         "$@" 2>/dev/null
  84 }
  85
  86 check_output()
  87 {
  88         _name=$1
  89         shift 1
  90         if eval "$*" | entag > $_name.actual
  91         then
  92                 diff $_name.expected $_name.actual
  93         else
  94                 return 1;
  95         fi
  96 }
  97
  98 # Turn a reasonable test description into a reasonable test name.
  99 # All alphanums translated into -'s which are then compressed and stripped
 100 # from front and back.
 101 name_from_description()
 102 {
 103         perl -pe '
 104                 s/[^A-Za-z0-9.]/-/g;
 105                 s/-+/-/g;
 106                 s/-$//;
 107                 s/^-//;
 108                 y/A-Z/a-z/;
 109         '
 110 }
 111
 112
 113 # Execute the test described by the first argument, by eval'ing
 114 # command line specified in the 2nd argument. Check the status code
 115 # is zero and that the output matches the stream read from
 116 # stdin.
 117 test_output_expect_success()
 118 {
 119         _description=$1
 120         _test=$2
 121         [ $# -eq 2 ] || error "usage: test_output_expect_success description test <<EOF ... EOF"
 122         _name=$(echo $_description | name_from_description)
 123         cat > $_name.expected
 124         test_expect_success "$_description" "check_output $_name \"$_test\""
 125 }