Andrew's git - gitweb.git/blob

   1. ./test-lib.sh
   2
   3if test -n "$NO_SVN_TESTS"
   4then
   5        test_expect_success 'skipping git-svn tests, NO_SVN_TESTS defined' :
   6        test_done
   7        exit
   8fi
   9
  10GIT_DIR=$PWD/.git
  11GIT_SVN_DIR=$GIT_DIR/svn/git-svn
  12SVN_TREE=$GIT_SVN_DIR/svn-tree
  13
  14svn >/dev/null 2>&1
  15if test $? -ne 1
  16then
  17    test_expect_success 'skipping git-svn tests, svn not found' :
  18    test_done
  19    exit
  20fi
  21
  22svnrepo=$PWD/svnrepo
  23
  24perl -w -e "
  25use SVN::Core;
  26use SVN::Repos;
  27\$SVN::Core::VERSION gt '1.1.0' or exit(42);
  28system(qw/svnadmin create --fs-type fsfs/, '$svnrepo') == 0 or exit(41);
  29" >&3 2>&4
  30x=$?
  31if test $x -ne 0
  32then
  33        if test $x -eq 42; then
  34                err='Perl SVN libraries must be >= 1.1.0'
  35        elif test $x -eq 41; then
  36                err='svnadmin failed to create fsfs repository'
  37        else
  38                err='Perl SVN libraries not found or unusable, skipping test'
  39        fi
  40        test_expect_success "$err" :
  41        test_done
  42        exit
  43fi
  44
  45svnrepo="file://$svnrepo"
  46
  47
  48poke() {
  49        perl -e '@x = stat($ARGV[0]); utime($x[8], $x[9] + 1, $ARGV[0])' "$1"
  50}