(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:gpg_version)
          op: Equal
          rhs: 
            {
              (CommandSubPart
                command_list: 
                  (CommandList
                    children: [
                      (SimpleCommand
                        words: [{(gpg)} {(--version)}]
                        redirects: [(Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[10])]
                      )
                    ]
                  )
                left_token: <Left_CommandSub '$('>
                spids: [5 12]
              )
            }
          spids: [4]
        )
      ]
      spids: [4]
    )
    (If
      arms: [
        (if_arm
          cond: [(C {(test)} {($ VSub_QMark '$?')} {(KW_Bang '!') (Lit_Other '=')} {(127)})]
          action: [
            (Case
              to_match: {(DQ ($ VSub_Name '$gpg_version'))}
              arms: [
                (case_arm
                  pat_list: [{(SQ <'gpg (GnuPG) 1.0.6'>) (Lit_Other '*')}]
                  action: [(C {(say)} {(DQ ('Your version of gpg (1.0.6) is too buggy for testing'))})]
                  spids: [50 53 63 16777215]
                )
                (case_arm
                  pat_list: [{(Lit_Other '*')}]
                  action: [
                    (AndOr
                      ops: [Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp Op_DAmp]
                      children: [
                        (C {(mkdir)} {(./gpghome)})
                        (C {(chmod)} {(0700)} {(./gpghome)})
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:GNUPGHOME)
                              op: Equal
                              rhs: 
                                {
                                  (DQ 
                                    (CommandSubPart
                                      command_list: (CommandList children:[(C {(pwd)})])
                                      left_token: <Left_CommandSub '$('>
                                      spids: [152 154]
                                    ) (/gpghome)
                                  )
                                }
                              spids: [150]
                            )
                          ]
                          spids: [150]
                        )
                        (C {(export)} {(GNUPGHOME)})
                        (SimpleCommand
                          words: [
                            {(gpg)}
                            {(--homedir)}
                            {(DQ (${ VSub_Name GNUPGHOME))}
                            {(--import)}
                            {(DQ ($ VSub_Name '$TEST_DIRECTORY')) (/lib-gpg/keyring.gpg)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_Great
                              fd: 2
                              arg_word: {(/dev/null)}
                              spids: [178]
                            )
                          ]
                        )
                        (SimpleCommand
                          words: [
                            {(gpg)}
                            {(--homedir)}
                            {(DQ (${ VSub_Name GNUPGHOME))}
                            {(--import-ownertrust)}
                            {(DQ ($ VSub_Name '$TEST_DIRECTORY')) (/lib-gpg/ownertrust)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_Great
                              fd: 2
                              arg_word: {(/dev/null)}
                              spids: [203]
                            )
                          ]
                        )
                        (SimpleCommand
                          words: [
                            {(gpg)}
                            {(--homedir)}
                            {(DQ (${ VSub_Name GNUPGHOME))}
                            {(--sign)}
                            {(-u)}
                            {(committer) (Lit_Other '@') (example.com)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_Less
                              fd: 16777215
                              arg_word: {(/dev/null)}
                              spids: [228]
                            )
                            (Redir
                              op_id: Redir_Great
                              fd: 16777215
                              arg_word: {(/dev/null)}
                              spids: [231]
                            )
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 2
                              arg_word: {(1)}
                              spids: [234]
                            )
                          ]
                        )
                        (C {(test_set_prereq)} {(GPG)})
                      ]
                    )
                  ]
                  spids: [66 67 255 16777215]
                )
              ]
              spids: [40 46 258]
            )
          ]
          spids: [16777215 25]
        )
      ]
      spids: [16777215 260]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (AndOr
              ops: [Op_DAmp]
              children: [
                (C {(test_have_prereq)} {(GPG)})
                (Pipeline
                  children: [
                    (C {(echo)})
                    (SimpleCommand
                      words: [{(gpg)} {(--homedir)} {(DQ (${ VSub_Name GNUPGHOME))} {(-b)} {(--rfc1991)}]
                      redirects: [
                        (Redir
                          op_id: Redir_Great
                          fd: 16777215
                          arg_word: {(/dev/null)}
                          spids: [290]
                        )
                        (Redir
                          op_id: Redir_GreatAnd
                          fd: 2
                          arg_word: {(1)}
                          spids: [293]
                        )
                      ]
                    )
                  ]
                  negated: F
                )
              ]
            )
          ]
          action: [(C {(test_set_prereq)} {(RFC1991)})]
          spids: [16777215 296]
        )
      ]
      spids: [16777215 303]
    )
    (FuncDef
      name: sanitize_pgp
      body: 
        (BraceGroup
          children: [
            (C {(perl)} {(-ne)} 
              {
                (SQ <'\n'> <'\t\t/^-----END PGP/ and $in_pgp = 0;\n'> <'\t\tprint unless $in_pgp;\n'> 
                  <'\t\t/^-----BEGIN PGP/ and $in_pgp = 1;\n'> <'\t'>
                )
              }
            )
          ]
          spids: [310]
        )
      spids: [306 309]
    )
  ]
)