(List
  (FunctionDef verify_test_context []
    (If
      (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub TEST_NAME]]} {[LIT_CHARS -a]} {[LIT_OTHER "!"]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
      (List
        (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "A test context must be established with 'test_start <name>'!"]]})
        (Com {[LIT_CHARS exit]} {[LIT_CHARS 255]})
      )
    )
  )
  (FunctionDef test_start []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TEST_NAME', {[DQ [VarSub *]]})])
      (Com {[LIT_CHARS verify_test_context]})
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TEST_STATUS', {[LIT_CHARS PASS]})])
      (If
        (Com {[LIT_OTHER "["]} {[VarSub USING_TET]} {[LIT_OTHER "]"]})
        (List
          (Com {[LIT_CHARS tet_infoline]} {[VarSub TEST_NAME]})
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FAIL', {[LIT_CHARS N]})])
        )
        (ElseTrue)
        (Com {[LIT_CHARS echo]} {[LIT_CHARS -n]} {[DQ [LIT_CHARS "["][ComSub (Com {[LIT_CHARS date]})][LIT_CHARS "] "][VarSub TEST_NAME][LIT_CHARS ": "]]})
      )
    )
  )
  (FunctionDef test_infoline []
    (List
      (Com {[LIT_CHARS verify_test_context]})
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FAIL_MESSAGE', {[DQ [VarSub FAIL_MESSAGE][\ LIT_ESCAPED_CHAR "\\n"][VarSub *]]})])
      (If
        (Com {[LIT_OTHER "["]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
        (Com {[LIT_CHARS tet_infoline]} {[VarSub *]})
      )
    )
  )
  (FunctionDef test_fail []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FAIL', {[LIT_CHARS Y]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TEST_STATUS', {[LIT_CHARS FAIL]})])
      (Com {[LIT_CHARS test_infoline]} {[VarSub *]})
    )
  )
  (FunctionDef test_purpose []
    (Com {[LIT_CHARS verify_test_context]})
  )
  (FunctionDef test_note []
    (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tmp', {[LIT_CHARS 1]})])
  )
  (FunctionDef test_init []
    (Com {[LIT_CHARS verify_test_context]})
  )
  (FunctionDef test_status []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TEST_STATUS', {[DQ [VarSub 1]]})])
      (Com {[LIT_CHARS test_infoline]} {[DQ [VarSub 2]]})
    )
  )
  (FunctionDef test_procedure []
    (List
      (Com {[LIT_CHARS verify_test_context]})
      (If
        (Com {[LIT_OTHER "["]} {[DQ [VarSub TEST_STATUS]]} {[LIT_OTHER "!"] [LIT_OTHER "="]} {[DQ [LIT_CHARS PASS]]} {[LIT_OTHER "]"]})
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FAIL', {[LIT_CHARS N]})])
          (Com {[LIT_CHARS test_result]} {[LIT_CHARS NORESULT]} {[DQ [LIT_CHARS "Initilization failed!"]]})
        )
      )
    )
  )
  (FunctionDef test_failoverride []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('STAT', {[VarSub 1 test_op=VS_TEST_HYPHEN {[LIT_CHARS WARN]}]})])
      (If
        (Com {[LIT_OTHER "["]} {[DQ [VarSub TEST_STATUS]]} {[LIT_OTHER "="] [LIT_OTHER "="]} {[LIT_CHARS FAIL]} {[LIT_OTHER "]"]})
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FAIL', {[LIT_CHARS N]})])
          (Com {[LIT_CHARS test_status]} {[DQ [VarSub STAT]]})
        )
      )
    )
  )
  (FunctionDef test_result []
    (List
      (Com {[LIT_CHARS verify_test_context]})
      (If
        (Com {[LIT_OTHER "["]} {[LIT_OTHER "!"]} {[LIT_CHARS -z]} {[DQ [VarSub 1]]} {[LIT_OTHER "]"]})
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('TEST_STATUS', {[VarSub 1]})])
          (If
            (Com {[LIT_OTHER "["]} {[DQ [VarSub TEST_STATUS]]} {[LIT_OTHER "="]} {[DQ [LIT_CHARS FAIL]]} {[LIT_OTHER "]"]})
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('FAIL', {[LIT_CHARS Y]})])
          )
        )
      )
      (If
        (Com {[LIT_OTHER "["]} {[LIT_OTHER "!"]} {[LIT_CHARS -z]} {[DQ [VarSub 2]]} {[LIT_OTHER "]"]})
        (Com {[LIT_CHARS test_infoline]} {[VarSub 2]})
      )
      (If
        (Com {[LIT_OTHER "["]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
        (Com {[LIT_CHARS tet_result]} {[VarSub TEST_STATUS]})
      )
      (AndOr OP_AND_IF
        (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
        (Com {[LIT_CHARS echo]} {[LIT_CHARS -n]} {[DQ [VarSub TEST_STATUS]]})
      )
      (Case to_match={[DQ [VarSub TEST_STATUS]]}, pat_word_list=[[{[LIT_CHARS PASS]}], [{[LIT_CHARS FAIL]}], [{[LIT_CHARS UNTESTED]}], [{[LIT_CHARS NORESULT]}], [{[LIT_CHARS WARN]}], [{[LIT_OTHER "*"]}]]
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('RESULT', {[LIT_CHARS 0]})])
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('RESULT', {[LIT_CHARS 1]})])
          (AndOr OP_AND_IF
            (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
            (Com {[LIT_CHARS echo]} {[LIT_CHARS -ne]} {[DQ [LIT_CHARS " "][VarSub FAIL_MESSAGE]]})
          )
        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('RESULT', {[LIT_CHARS 5]})])
          (AndOr OP_AND_IF
            (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
            (Com {[LIT_CHARS echo]} {[LIT_CHARS -ne]} {[DQ [LIT_CHARS " "][VarSub FAIL_MESSAGE]]})
          )
        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('RESULT', {[LIT_CHARS 7]})])
          (AndOr OP_AND_IF
            (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
            (Com {[LIT_CHARS echo]} {[LIT_CHARS -ne]} {[DQ [LIT_CHARS " "][VarSub FAIL_MESSAGE]]})
          )
        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('RESULT', {[LIT_CHARS 10]})])
          (AndOr OP_AND_IF
            (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
            (Com {[LIT_CHARS echo]} {[LIT_CHARS -ne]} {[DQ [LIT_CHARS " "][VarSub FAIL_MESSAGE]]})
          )
        )
        (List
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('RESULT', {[LIT_CHARS 1]})])
          (AndOr OP_AND_IF
            (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
            (Com {[LIT_CHARS echo]} {[LIT_CHARS -ne]} {[DQ [LIT_CHARS " - UNKNOWN STATUS"][\ LIT_ESCAPED_CHAR "\\n"][VarSub FAIL_MESSAGE]]})
          )
        )
      )
      (AndOr OP_AND_IF
        (Com {[LIT_OTHER "["]} {[LIT_CHARS -z]} {[DQ [VarSub USING_TET]]} {[LIT_OTHER "]"]})
        (Com {[LIT_CHARS echo]} {[DQ ]})
      )
      (Com {[LIT_CHARS exit]} {[DQ [VarSub RESULT]]})
    )
  )
  (FunctionDef infofile []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('prefix', {[DQ [VarSub 2]]})])
      (While
        (Com {[LIT_CHARS read]} {[LIT_CHARS line]})
        (Com {[LIT_CHARS test_infoline]} {[DQ [VarSub prefix][VarSub line]]})
      )
    )
  )
)