#!/bin/sh
#
# Copyright (c) 2008 Jan Krüger
#

global test_description := ''git svn respects rewriteRoot during rebuild''

source ./lib-git-svn.sh

mkdir import
shell {cd import
	touch foo
	svn_cmd import -m 'import for git svn' . $svnrepo >/dev/null
}
rm -rf import

test_expect_success 'init, fetch and checkout repository' '
	git svn init --rewrite-root=http://invalid.invalid/ "$svnrepo" &&
	git svn fetch &&
	git checkout -b mybranch remotes/git-svn
	'

test_expect_success 'remove rev_map' '
	rm "$GIT_SVN_DIR"/.rev_map.*
	'

test_expect_success 'rebuild rev_map' '
	git svn rebase >/dev/null
	'

test_done

(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git svn respects rewriteRoot during rebuild">)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (C {(mkdir)} {(import)})
    (Subshell
      child: 
        (CommandList
          children: [
            (C {(cd)} {(import)})
            (C {(touch)} {(foo)})
            (SimpleCommand
              words: [
                {(svn_cmd)}
                {(import)}
                {(-m)}
                {(SQ <"import for git svn">)}
                {(.)}
                {(DQ ($ VSub_Name "$svnrepo"))}
              ]
              redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(/dev/null)} spids:[55])]
            )
          ]
        )
      spids: [28 58]
    )
    (C {(rm)} {(-rf)} {(import)})
    (C {(test_expect_success)} {(SQ <"init, fetch and checkout repository">)} 
      {
        (SQ <"\n"> <"\tgit svn init --rewrite-root=http://invalid.invalid/ \"$svnrepo\" &&\n"> 
          <"\tgit svn fetch &&\n"> <"\tgit checkout -b mybranch remotes/git-svn\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"remove rev_map">)} 
      {(SQ <"\n"> <"\trm \"$GIT_SVN_DIR\"/.rev_map.*\n"> <"\t">)}
    )
    (C {(test_expect_success)} {(SQ <"rebuild rev_map">)} 
      {(SQ <"\n"> <"\tgit svn rebase >/dev/null\n"> <"\t">)}
    )
    (C {(test_done)})
  ]
)