(command.CommandList children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:test_description) op: Equal rhs: {(SQ <'--all includes detached HEADs'>)} ) ] ) (C {(.)} {(./test-lib.sh)}) (command.FuncDef name: commit body: (command.BraceGroup children: [ (command.AndOr ops: [Op_DAmp Op_DAmp Op_DAmp] children: [ (C {(test_tick)}) (command.SimpleCommand words: [{(echo)} {($ VSub_Number '$1')}] redirects: [(redir.Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(foo)})] ) (C {(git)} {(add)} {(foo)}) (C {(git)} {(commit)} {(-m)} {(DQ ($ VSub_Number '$1'))}) ] ) ] ) ) (C {(test_expect_success)} {(SQ <setup>)} { (SQ <'\n'> <'\n'> <'\tcommit one &&\n'> <'\tcommit two &&\n'> <'\tgit checkout HEAD^ &&\n'> <'\tcommit detached\n'> <'\n'> ) } ) (C {(test_expect_success)} {(SQ <'rev-list --all lists detached HEAD'>)} {(SQ <'\n'> <'\n'> <'\ttest 3 = $(git rev-list --all | wc -l)\n'> <'\n'>)} ) (C {(test_expect_success)} {(SQ <'repack does not lose detached HEAD'>)} { (SQ <'\n'> <'\n'> <'\tgit gc &&\n'> <'\tgit prune --expire=now &&\n'> <'\tgit show HEAD\n'> <'\n'>) } ) (C {(test_expect_success)} {(SQ <'rev-list --graph --no-walk is forbidden'>)} {(SQ <'\n'> <'\ttest_must_fail git rev-list --graph --no-walk HEAD\n'>)} ) (C {(test_done)}) ] )