3 remotes_git_svn
=remotes
/git
""-svn
4 git_svn_id
=git
""-svn-id
6 if test -n "$NO_SVN_TESTS"
8 say
'skipping git svn tests, NO_SVN_TESTS defined'
11 if ! test_have_prereq PERL
; then
12 say
'skipping git svn tests, perl not available'
17 GIT_SVN_DIR
=$GIT_DIR/svn
/git-svn
18 SVN_TREE
=$GIT_SVN_DIR/svn-tree
23 say
'skipping git svn tests, svn not found'
33 \$SVN::Core::VERSION gt '1.1.0' or exit(42);
34 system(qw/svnadmin create --fs-type fsfs/, \$ENV{svnrepo}) == 0 or exit(41);
39 if test $x -eq 42; then
40 err
='Perl SVN libraries must be >= 1.1.0'
41 elif test $x -eq 41; then
42 err
='svnadmin failed to create fsfs repository'
44 err
='Perl SVN libraries not found or unusable, skipping test'
51 svnrepo
="file://$svnrepo"
69 "$SVN_HTTPD_MODULE_PATH" \
70 /usr
/lib
/apache
2/modules \
71 /usr
/libexec
/apache2 \
75 SVN_HTTPD_MODULE_PATH
="$d"
82 if test -z "$SVN_HTTPD_PORT"
84 echo >&2 'SVN_HTTPD_PORT is not defined!'
87 if test -z "$repo_base_path"
94 cat > "$GIT_DIR/httpd.conf" <<EOF
95 ServerName "git svn test"
97 DocumentRoot "$GIT_DIR"
98 PidFile "$GIT_DIR/httpd.pid"
99 LockFile logs/accept.lock
100 Listen 127.0.0.1:$SVN_HTTPD_PORT
101 LoadModule dav_module $SVN_HTTPD_MODULE_PATH/mod_dav.so
102 LoadModule dav_svn_module $SVN_HTTPD_MODULE_PATH/mod_dav_svn.so
103 <Location /$repo_base_path>
105 SVNPath "$rawsvnrepo"
108 "$SVN_HTTPD_PATH" -f "$GIT_DIR"/httpd.conf
-k start
109 svnrepo
="http://127.0.0.1:$SVN_HTTPD_PORT/$repo_base_path"
113 test -z "$SVN_HTTPD_PORT" && return
114 "$SVN_HTTPD_PATH" -f "$GIT_DIR"/httpd.conf
-k stop
117 convert_to_rev_db
() {
118 perl
-w -- - "$@" <<\EOF
120 @ARGV
== 2 or die
"Usage: convert_to_rev_db <input> <output>";
121 open my
$wr, '+>', $ARGV[1] or die
"$!: couldn't open: $ARGV[1]";
122 open my
$rd, '<', $ARGV[0] or die
"$!: couldn't open: $ARGV[0]";
123 my
$size = (stat
($rd))[7];
124 ($size % 24) == 0 or die
"Inconsistent size: $size";
125 while (sysread
($rd, my
$buf, 24) == 24) {
126 my
($r, $c) = unpack
('NH40', $buf);
127 my
$offset = $r * 41;
128 seek
$wr, 0, 2 or die $
!;
130 if ($pos < $offset) {
131 for (1 ..
(($offset - $pos) / 41)) {
132 print
$wr (('0' x
40),"\n") or die $
!;
135 seek
$wr, $offset, 0 or die $
!;
136 print
$wr $c,"\n" or die $
!;
143 require_svnserve
() {
144 if test -z "$SVNSERVE_PORT"
146 say
'skipping svnserve test. (set $SVNSERVE_PORT to enable)'
152 svnserve
--listen-port $SVNSERVE_PORT \
153 --root "$rawsvnrepo" \
155 --listen-host 127.0.0.1 &