tests/GDBMIParserTests.st
changeset 79 303c4edc75ad
parent 77 305094ae9fd9
child 84 7913863edaa6
equal deleted inserted replaced
78:c24e7d8bc881 79:303c4edc75ad
   113     self 
   113     self 
   114         assert:((events first result propertyAt:'BreakpointTable') at:'body') 
   114         assert:((events first result propertyAt:'BreakpointTable') at:'body') 
   115                 notNil.
   115                 notNil.
   116 
   116 
   117     "Created: / 20-06-2014 / 09:08:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   117     "Created: / 20-06-2014 / 09:08:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   118 !
       
   119 
       
   120 test_command_gdb_exit
       
   121     | parser events result |
       
   122 
       
   123     parser := GDBMIParser 
       
   124             on:'1^exit'.
       
   125     parser token2CommandMappingBlock:[:token | GDBMI_gdb_exit new ].
       
   126     events := parser parseOutput.
       
   127 
       
   128     self assert:events size == 1.
       
   129     result := events first result.
       
   130 
       
   131     self assert:result value isNil.
       
   132 
       
   133     "Created: / 31-05-2017 / 21:19:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   118 !
   134 !
   119 
   135 
   120 test_command_stack_list_frames_01
   136 test_command_stack_list_frames_01
   121     | parser  events |
   137     | parser  events |
   122 
   138