(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "compare & swap push force/delete safety">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef setup_srcdst_basic []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -fr]} {[LIT_CHARS src]} {[LIT_CHARS dst]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS clone]} {[LIT_CHARS --no-local]} {[LIT_CHARS .]} {[LIT_CHARS src]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS clone]} {[LIT_CHARS --no-local]} {[LIT_CHARS src]} {[LIT_CHARS dst]})
          (Subshell
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS cd]} {[LIT_CHARS src]})
              (Com {[LIT_CHARS git]} {[LIT_CHARS checkout]} {[LIT_CHARS HEAD] [LIT_OTHER "^"] [LIT_CHARS 0]})
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# create template repository\n"> <LIT_CHARS "\ttest_commit A &&\n"> <LIT_CHARS "\ttest_commit B &&\n"> <LIT_CHARS "\ttest_commit C\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (protected)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --force-with-lease=master:master origin master 2>err &&\n"> <LIT_CHARS "\t\tgrep \"stale info\" err\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote . refs/heads/master >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (protected, forced)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\tgit push --force --force-with-lease=master:master origin master 2>err &&\n"> <LIT_CHARS "\t\tgrep \"forced update\" err\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/master >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (protected, tracking)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\tgit checkout master &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\tgit checkout HEAD^0\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >expect &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_commit E &&\n"> <LIT_CHARS "\t\tgit ls-remote . refs/remotes/origin/master >expect &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --force-with-lease=master origin master &&\n"> <LIT_CHARS "\t\tgit ls-remote . refs/remotes/origin/master >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (protected, tracking, forced)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\tgit checkout master &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\tgit checkout HEAD^0\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_commit E &&\n"> <LIT_CHARS "\t\tgit ls-remote . refs/remotes/origin/master >expect &&\n"> <LIT_CHARS "\t\tgit push --force --force-with-lease=master origin master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/master >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (allowed)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease=master:master^ origin master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/master >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (allowed, tracking)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease=master origin master 2>err &&\n"> <LIT_CHARS "\t\t! grep \"forced update\" err\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/master >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to update (allowed even though no-ff)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit reset --hard HEAD^ &&\n"> <LIT_CHARS "\t\ttest_commit D &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease=master origin master 2>err &&\n"> <LIT_CHARS "\t\tgrep \"forced update\" err\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/master >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to delete (protected)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >expect &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --force-with-lease=master:master^ origin :master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to delete (protected, forced)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit push --force --force-with-lease=master:master^ origin :master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push to delete (allowed)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease=master origin :master 2>err &&\n"> <LIT_CHARS "\t\tgrep deleted err\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover everything with default force-with-lease (protected)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\tgit branch naster master^\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/\\* >expect &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --force-with-lease origin master master:naster\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/\\* >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover everything with default force-with-lease (allowed)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\tgit branch naster master^\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit fetch &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease origin master master:naster\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/master |\n"> <LIT_CHARS "\tsed -e \"s/master/naster/\" >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/naster >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "new branch covered by force-with-lease">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit branch branch master &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease=branch origin branch\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/branch >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/branch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "new branch covered by force-with-lease (explicit)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit branch branch master &&\n"> <LIT_CHARS "\t\tgit push --force-with-lease=branch: origin branch\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit ls-remote dst refs/heads/branch >expect &&\n"> <LIT_CHARS "\tgit ls-remote src refs/heads/branch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "new branch already exists">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsetup_srcdst_basic &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd src &&\n"> <LIT_CHARS "\t\tgit checkout -b branch master &&\n"> <LIT_CHARS "\t\ttest_commit F\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd dst &&\n"> <LIT_CHARS "\t\tgit branch branch master &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --force-with-lease=branch: origin branch\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)