#!/bin/sh

global test_description := ''stash apply can handle submodules''

source ./test-lib.sh
source "$TEST_DIRECTORY"/lib-submodule-update.sh

proc git_stash {
	git status -su >expect &&
	ls -1pR * >>expect &&
	git read-tree -u -m $1 &&
	git stash &&
	git status -su >actual &&
	ls -1pR * >>actual &&
	test_cmp expect actual &&
	git stash apply
}

global KNOWN_FAILURE_STASH_DOES_IGNORE_SUBMODULE_CHANGES := '1'
global KNOWN_FAILURE_CHERRY_PICK_SEES_EMPTY_COMMIT := '1'
global KNOWN_FAILURE_NOFF_MERGE_DOESNT_CREATE_EMPTY_SUBMODULE_DIR := '1'
test_submodule_switch "git_stash"

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"stash apply can handle submodules">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(.)} {(DQ ($ VSub_Name "$TEST_DIRECTORY")) (/lib-submodule-update.sh)})
    (FuncDef
      name: git_stash
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (SimpleCommand
                  words: [{(git)} {(status)} {(-su)}]
                  redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(expect)} spids:[36])]
                )
                (AndOr
                  children: [
                    (SimpleCommand
                      words: [{(ls)} {(-1pR)} {(Lit_Other "*")}]
                      redirects: [(Redir op_id:Redir_DGreat fd:-1 arg_word:{(expect)} spids:[48])]
                    )
                    (AndOr
                      children: [
                        (C {(git)} {(read-tree)} {(-u)} {(-m)} {(DQ ($ VSub_Number "$1"))})
                        (AndOr
                          children: [
                            (C {(git)} {(stash)})
                            (AndOr
                              children: [
                                (SimpleCommand
                                  words: [{(git)} {(status)} {(-su)}]
                                  redirects: [
                                    (Redir
                                      op_id: Redir_Great
                                      fd: -1
                                      arg_word: {(actual)}
                                      spids: [82]
                                    )
                                  ]
                                )
                                (AndOr
                                  children: [
                                    (SimpleCommand
                                      words: [{(ls)} {(-1pR)} {(Lit_Other "*")}]
                                      redirects: [
                                        (Redir
                                          op_id: Redir_DGreat
                                          fd: -1
                                          arg_word: {(actual)}
                                          spids: [94]
                                        )
                                      ]
                                    )
                                    (AndOr
                                      children: [
                                        (C {(test_cmp)} {(expect)} {(actual)})
                                        (C {(git)} {(stash)} {(apply)})
                                      ]
                                      op_id: Op_DAmp
                                    )
                                  ]
                                  op_id: Op_DAmp
                                )
                              ]
                              op_id: Op_DAmp
                            )
                          ]
                          op_id: Op_DAmp
                        )
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [27]
        )
      spids: [22 26]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:KNOWN_FAILURE_STASH_DOES_IGNORE_SUBMODULE_CHANGES)
          op: Equal
          rhs: {(1)}
          spids: [118]
        )
      ]
      spids: [118]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:KNOWN_FAILURE_CHERRY_PICK_SEES_EMPTY_COMMIT)
          op: Equal
          rhs: {(1)}
          spids: [121]
        )
      ]
      spids: [121]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:KNOWN_FAILURE_NOFF_MERGE_DOESNT_CREATE_EMPTY_SUBMODULE_DIR)
          op: Equal
          rhs: {(1)}
          spids: [124]
        )
      ]
      spids: [124]
    )
    (C {(test_submodule_switch)} {(DQ (git_stash))})
    (C {(test_done)})
  ]
)