(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git svn fancy glob test">)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (C {(test_expect_success)} {(SQ <"load svn repo">)} 
      {
        (DQ ("\n") ("\tsvnadmin load -q '") ($ VSub_Name "$rawsvnrepo") ("' < '") 
          ($ VSub_Name "$TEST_DIRECTORY") ("/t9154/svn.dump' &&\n") ("\tgit svn init --minimize-url -T trunk '") ($ VSub_Name "$svnrepo") 
          ("' &&\n") ("\tgit svn fetch\n") ("\t")
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"add red branch">)} 
      {
        (DQ ("\n") ("\tgit config svn-remote.svn.branches 'branches/{red}:refs/remotes/*' &&\n") 
          ("\tgit svn fetch &&\n") ("\tgit rev-parse refs/remotes/red &&\n") ("\ttest_must_fail git rev-parse refs/remotes/green &&\n") 
          ("\ttest_must_fail git rev-parse refs/remotes/blue\n") ("\t")
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"add gre branch">)} 
      {
        (DQ ("\n") 
          ("\tgit config --file=.git/svn/.metadata --unset svn-remote.svn.branches-maxRev &&\n") ("\tgit config svn-remote.svn.branches 'branches/{red,gre}:refs/remotes/*' &&\n") 
          ("\tgit svn fetch &&\n") ("\tgit rev-parse refs/remotes/red &&\n") ("\ttest_must_fail git rev-parse refs/remotes/green &&\n") 
          ("\ttest_must_fail git rev-parse refs/remotes/blue\n") ("\t")
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"add green branch">)} 
      {
        (DQ ("\n") 
          ("\tgit config --file=.git/svn/.metadata --unset svn-remote.svn.branches-maxRev &&\n") ("\tgit config svn-remote.svn.branches 'branches/{red,green}:refs/remotes/*' &&\n") 
          ("\tgit svn fetch &&\n") ("\tgit rev-parse refs/remotes/red &&\n") ("\tgit rev-parse refs/remotes/green &&\n") 
          ("\ttest_must_fail git rev-parse refs/remotes/blue\n") ("\t")
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"add all branches">)} 
      {
        (DQ ("\n") 
          ("\tgit config --file=.git/svn/.metadata --unset svn-remote.svn.branches-maxRev &&\n") ("\tgit config svn-remote.svn.branches 'branches/*:refs/remotes/*' &&\n") ("\tgit svn fetch &&\n") 
          ("\tgit rev-parse refs/remotes/red &&\n") ("\tgit rev-parse refs/remotes/green &&\n") ("\tgit rev-parse refs/remotes/blue\n") ("\t")
        )
      }
    )
    (C {(test_done)})
  ]
)