tests/GDBDebuggerTestsR.st
changeset 292 d4b3ddeda08d
parent 272 cdd1c9ad00de
child 320 b52930e757e4
equal deleted inserted replaced
291:685992d59efd 292:d4b3ddeda08d
   194     self assert: debugger isConnected.
   194     self assert: debugger isConnected.
   195     self assert: eventPumpProcess isDead not.
   195     self assert: eventPumpProcess isDead not.
   196     debugger send: (GDBMI_gdb_exit new) andWait: false.      
   196     debugger send: (GDBMI_gdb_exit new) andWait: false.      
   197     [ debugger isConnected and:[timeToExit < 2000] ] whileTrue:[
   197     [ debugger isConnected and:[timeToExit < 2000] ] whileTrue:[
   198         Logger trace:'Still connected...'.
   198         Logger trace:'Still connected...'.
   199         Delay waitForMilliseconds: 200.  
   199         (Delay forMilliseconds: 200) wait.  
   200         timeToExit := timeToExit + 200.
   200         timeToExit := timeToExit + 200.
   201     ].
   201     ].
   202     self assert: timeToExit < 2000.
   202     self assert: timeToExit < 2000.
   203     self assert: debugger isConnected not.
   203     self assert: debugger isConnected not.
   204     self assert: eventPumpProcess isDead.
   204     self assert: eventPumpProcess isDead.
   355 
   355 
   356     debugger send: 'r' andWaitFor: GDBStoppedEvent.
   356     debugger send: 'r' andWaitFor: GDBStoppedEvent.
   357     self assert: debugger breakpoints size == 1.
   357     self assert: debugger breakpoints size == 1.
   358     "/ We need to wait a until breakpoint-modifed
   358     "/ We need to wait a until breakpoint-modifed
   359     "/ event is received.
   359     "/ event is received.
   360     Delay waitForMilliseconds: 200.  
   360     (Delay forMilliseconds: 200) wait.  
   361     self assert: debugger breakpoints first enabled == false.
   361     self assert: debugger breakpoints first enabled == false.
   362 
   362 
   363     debugger send: 'c' andWaitFor: GDBThreadGroupExitedEvent.
   363     debugger send: 'c' andWaitFor: GDBThreadGroupExitedEvent.
   364 
   364 
   365     debugger send: 'quit' andWait: false.
   365     debugger send: 'quit' andWait: false.