tests/GDBDebuggerTestsR.st
changeset 63 29a7a3b4532b
parent 56 20989de12cfb
child 66 43c941cacd43
--- a/tests/GDBDebuggerTestsR.st	Sun Mar 08 06:01:49 2015 +0000
+++ b/tests/GDBDebuggerTestsR.st	Sun Mar 08 07:37:59 2015 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'jv:libgdbs/tests' }"
 
 "{ NameSpace: Smalltalk }"
@@ -46,9 +48,7 @@
     debugger executable: GDBDebuggeesResource current binaryFactorial.
     debugger send: 'b factorial'.
 
-    self 
-        do:[ debugger send: 'r' ] 
-        thenWaitFor: GDBStoppedEvent.
+    debugger send: 'r' andWaitFor: GDBStoppedEvent.
 
     self assert: debugger inferiors size == 1.
     inferior1 := debugger inferiors anElement.
@@ -66,11 +66,11 @@
     self assert: frame2 variables third name = 'i'.
     self assert: frame2 variables fourth name = 'f'.
 
-    self 
-        do:[ debugger send: 'd'; send: 'c' ]
-        thenWaitFor: GDBThreadGroupExitedEvent.
+    debugger send: 'd'.
+    debugger send: 'c' andWaitFor: GDBThreadGroupExitedEvent.
 
     "Created: / 28-02-2015 / 00:55:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-03-2015 / 06:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_basic_01