--- 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