#!/bin/bash
# -*- shell-script -*-

proc test_progress_show
{
    var -i _Dbg_logging = '0'
    var -i _Dbg_logging_redirect = '0'
    var _Dbg_tty = ''''
    var EMACS = 't'
    var bar = $[_Dbg_progess_show foo 10 3]
    assertEquals 'foo: [============> ' $(bar:3:20)
}

# load shunit2
global abs_top_srcdir := '/src/external-vcs/sourceforge/bashdb'
# Make sure $abs_top_srcdir has a trailing slash
global abs_top_srcdir := "$(abs_top_srcdir%%/)/"
source ${abs_top_srcdir}test/unit/helper.sh
source ${abs_top_srcdir}/lib/msg.sh
source ${abs_top_srcdir}/init/io.sh
set -- # reset $# so shunit2 doesn't get confused.

[[ $0 == ${BASH_SOURCE} ]] && source ${shunit_file}
(CommandList
  children: [
    (FuncDef
      name: test_progress_show
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_Local
              flags: ["'-i'"]
              pairs: [(assign_pair lhs:(LhsName name:_Dbg_logging) op:Equal rhs:{(0)} spids:[18])]
              spids: [14]
            )
            (Assignment
              keyword: Assign_Local
              flags: ["'-i'"]
              pairs: [
                (assign_pair
                  lhs: (LhsName name:_Dbg_logging_redirect)
                  op: Equal
                  rhs: {(0)}
                  spids: [26]
                )
              ]
              spids: [22]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [(assign_pair lhs:(LhsName name:_Dbg_tty) op:Equal rhs:{(SQ )} spids:[32])]
              spids: [30]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [(assign_pair lhs:(LhsName name:EMACS) op:Equal rhs:{(t)} spids:[39])]
              spids: [37]
            )
            (Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (LhsName name:bar)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [(C {(_Dbg_progess_show)} {(foo)} {(10)} {(3)})]
                          )
                        left_token: <Left_CommandSub "$(">
                        spids: [46 54]
                      )
                    }
                  spids: [45]
                )
              ]
              spids: [43]
            )
            (C {(assertEquals)} {(SQ <"foo: [============> ">)} 
              {
                (DQ 
                  (BracedVarSub
                    token: <VSub_Name bar>
                    suffix_op: 
                      (Slice
                        begin: (ArithWord w:{(Lit_Digits 3)})
                        length: (ArithWord w:{(Lit_Digits 20)})
                      )
                    spids: [64 70]
                  )
                )
              }
            )
          ]
          spids: [11]
        )
      spids: [7 10]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:abs_top_srcdir)
          op: Equal
          rhs: {(/src/external-vcs/sourceforge/bashdb)}
          spids: [79]
        )
      ]
      spids: [79]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:abs_top_srcdir)
          op: Equal
          rhs: 
            {
              (BracedVarSub
                token: <VSub_Name abs_top_srcdir>
                suffix_op: (StringUnary op_id:VOp1_DPercent arg_word:{(Lit_Slash /)})
                spids: [86 90]
              ) (/)
            }
          spids: [85]
        )
      ]
      spids: [85]
    )
    (C {(.)} {(${ VSub_Name abs_top_srcdir) (test/unit/helper.sh)})
    (C {(.)} {(${ VSub_Name abs_top_srcdir) (/lib/msg.sh)})
    (C {(.)} {(${ VSub_Name abs_top_srcdir) (/init/io.sh)})
    (C {(set)} {(--)})
    (AndOr
      children: [
        (DBracket
          expr: 
            (BoolBinary
              op_id: BoolBinary_GlobDEqual
              left: {($ VSub_Number "$0")}
              right: {(${ VSub_Name BASH_SOURCE)}
            )
        )
        (C {(.)} {(${ VSub_Name shunit_file)})
      ]
      op_id: Op_DAmp
    )
  ]
)