source ./test-lib.sh
if test -n $NO_SVN_TESTS
{
setglobal skip_all = ''skipping git svn tests, NO_SVN_TESTS defined''
test_done
}
if ! test_have_prereq PERL {
setglobal skip_all = ''skipping git svn tests, perl not available''
test_done
}
setglobal GIT_DIR = "$PWD/.git"
setglobal GIT_SVN_DIR = "$GIT_DIR/svn/refs/remotes/git-svn"
setglobal SVN_TREE = "$GIT_SVN_DIR/svn-tree"
svn >/dev/null !2 > !1
if test $Status -ne 1
{
setglobal skip_all = ''skipping git svn tests, svn not found''
test_done
}
setglobal svnrepo = "$PWD/svnrepo"
export svnrepo
setglobal svnconf = "$PWD/svnconf"
export svnconf
perl -w -e "
use SVN::Core;
use SVN::Repos;
\$SVN::Core::VERSION gt '1.1.0' or exit(42);
system(qw/svnadmin create --fs-type fsfs/, \$ENV{svnrepo}) == 0 or exit(41);
" > !3 !2 > !4
setglobal x = $Status
if test $x -ne 0
{
if test $x -eq 42 {
setglobal skip_all = ''Perl SVN libraries must be >= 1.1.0''
} elif test $x -eq 41 {
setglobal skip_all = ''svnadmin failed to create fsfs repository''
} else {
setglobal skip_all = ''Perl SVN libraries not found or unusable''
}
test_done
}
setglobal rawsvnrepo = $svnrepo
setglobal svnrepo = ""file://$svnrepo""
proc poke {
test-chmtime +1 $1
}
# We need this, because we should pass empty configuration directory to
# the 'svn commit' to avoid automated property changes and other stuff
# that could be set from user's configuration files in ~/.subversion.
proc svn_cmd {
test -d $svnconf || mkdir $svnconf
setglobal orig_svncmd = $1; shift
if test -z $orig_svncmd {
svn
return
}
svn $orig_svncmd --config-dir $svnconf @Argv
}
proc maybe_start_httpd {
setglobal loc = $(1-svn)
test_tristate GIT_SVN_TEST_HTTPD
match $GIT_SVN_TEST_HTTPD {
with true
source "$TEST_DIRECTORY"/lib-httpd.sh
setglobal LIB_HTTPD_SVN = $loc
start_httpd
with *
proc stop_httpd {
: noop
}
}
}
proc convert_to_rev_db {
perl -w -- - @Argv << '''
use strict;
@ARGV == 2 or die "usage: convert_to_rev_db