t/test-lib.sh

   1 #!/bin/sh
   2 # Copyright (c) 2009 Rainbows! hackers
   3 # Copyright (c) 2010 Unicorn hackers
   4 . ./my-tap-lib.sh
   5
   6 set +u
   7
   8 # sometimes we rely on http_proxy to avoid wasting bandwidth with Isolate
   9 # and multiple Ruby versions
  10 NO_PROXY=${UNICORN_TEST_ADDR-127.0.0.1}
  11 export NO_PROXY
  12
  13 set -e
  14 RUBY="${RUBY-ruby}"
  15 RUBY_VERSION=${RUBY_VERSION-$($RUBY -e 'puts RUBY_VERSION')}
  16 RUBY_ENGINE=${RUBY_ENGINE-$($RUBY -e 'puts((RUBY_ENGINE rescue "ruby"))')}
  17 t_pfx=$PWD/trash/$T-$RUBY_ENGINE-$RUBY_VERSION
  18 set -u
  19
  20 PATH=$PWD/bin:$PATH
  21 export PATH
  22
  23 test -x $PWD/bin/unused_listen || die "must be run in 't' directory"
  24
  25 wait_for_pid () {
  26         path="$1"
  27         nr=30
  28         while ! test -s "$path" && test $nr -gt 0
  29         do
  30                 nr=$(($nr - 1))
  31                 sleep 1
  32         done
  33 }
  34
  35 # "unix_time" is not in POSIX, but in GNU, and FreeBSD 9.0 (possibly earlier)
  36 unix_time () {
  37         $RUBY -e 'puts Time.now.to_i'
  38 }
  39
  40 # given a list of variable names, create temporary files and assign
  41 # the pathnames to those variables
  42 rtmpfiles () {
  43         for id in "$@"
  44         do
  45                 name=$id
  46
  47                 case $name in
  48                 *fifo)
  49                         _tmp=$t_pfx.$id
  50                         eval "$id=$_tmp"
  51                         rm -f $_tmp
  52                         mkfifo $_tmp
  53                         T_RM_LIST="$T_RM_LIST $_tmp"
  54                         ;;
  55                 *socket)
  56                         _tmp="$(mktemp -t $id.$$.XXXXXXXX)"
  57                         if test $(printf "$_tmp" |wc -c) -gt 108
  58                         then
  59                                 echo >&2 "$_tmp too long, tests may fail"
  60                                 echo >&2 "Try to set TMPDIR to a shorter path"
  61                         fi
  62                         eval "$id=$_tmp"
  63                         rm -f $_tmp
  64                         T_RM_LIST="$T_RM_LIST $_tmp"
  65                         ;;
  66                 *)
  67                         _tmp=$t_pfx.$id
  68                         eval "$id=$_tmp"
  69                         > $_tmp
  70                         T_OK_RM_LIST="$T_OK_RM_LIST $_tmp"
  71                         ;;
  72                 esac
  73         done
  74 }
  75
  76 dbgcat () {
  77         id=$1
  78         eval '_file=$'$id
  79         echo "==> $id <=="
  80         sed -e "s/^/$id:/" < $_file
  81 }
  82
  83 check_stderr () {
  84         set +u
  85         _r_err=${1-${r_err}}
  86         set -u
  87         if grep -v $T $_r_err | grep -i Error
  88         then
  89                 die "Errors found in $_r_err"
  90         elif grep SIGKILL $_r_err
  91         then
  92                 die "SIGKILL found in $_r_err"
  93         fi
  94 }
  95
  96 # unicorn_setup
  97 unicorn_setup () {
  98         eval $(unused_listen)
  99         port=$(expr $listen : '[^:]*:\([0-9]\+\)')
 100         host=$(expr $listen : '\([^:]*\):[0-9]\+')
 101
 102         rtmpfiles unicorn_config pid r_err r_out fifo tmp ok
 103         cat > $unicorn_config <<EOF
 104 listen "$listen"
 105 pid "$pid"
 106 stderr_path "$r_err"
 107 stdout_path "$r_out"
 108 EOF
 109 }
 110
 111 unicorn_wait_start () {
 112         # no need to play tricks with FIFOs since we got "ready_pipe" now
 113         unicorn_pid=$(cat $pid)
 114 }
 115
 116 rsha1 () {
 117         sha1sum.rb
 118 }