--- a/RegressionTests__DebuggerTest.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__DebuggerTest.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -16,7 +16,7 @@
documentation to be added.
[author:]
- Claus Gittinger (cg@alan)
+ Claus Gittinger (cg@alan)
[instance variables:]
@@ -47,51 +47,51 @@
a := #( 1 2 3 4 ).
b := #( 9 8 7 6 ).
a do:[:eachA |
- b do:[:eachB |
- " you should see both eachA and eachB in the debugger "
- " eachA must be 1
- eachB must be 9
- "
+ b do:[:eachB |
+ " you should see both eachA and eachB in the debugger "
+ " eachA must be 1
+ eachB must be 9
+ "
- "/ cg: wait for the debugger to come up,
- "/ take a look at its local-variables inspector...
+ "/ cg: wait for the debugger to come up,
+ "/ take a look at its local-variables inspector...
- me := Processor activeProcess.
+ me := Processor activeProcess.
- [
- |debuggers theDebugger fieldList idx|
+ [
+ |debuggers theDebugger fieldList idx|
- Delay waitForSeconds:0.5.
+ Delay waitForSeconds:0.5.
- debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
- self assert:(debuggers size == 1).
- theDebugger := debuggers first.
- fieldList := theDebugger contextInspector fieldList.
- idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
- contextInspectorOK := false
- ].
- ].
- idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
- contextInspectorOK := false
- ].
- ].
- me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
- ] fork.
+ debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
+ self assert:(debuggers size == 1).
+ theDebugger := debuggers first.
+ fieldList := theDebugger contextInspector fieldList.
+ idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
+ ] fork.
- AbortOperationRequest handle:[:ex |
- ] do:[
- self halt:'checking variables in the debugger...'.
- ].
- self assert:contextInspectorOK.
- ]
+ AbortOperationRequest handle:[:ex |
+ ] do:[
+ self halt:'checking variables in the debugger...'.
+ ].
+ self assert:contextInspectorOK.
+ ]
]
"
@@ -108,57 +108,57 @@
a := #( 1 2 3 4 ).
b := #( 9 8 7 6 ).
a do:[:eachA |
- |outer|
+ |outer|
- outer := eachA + 1.
- b do:[:eachB |
- |inner|
+ outer := eachA + 1.
+ b do:[:eachB |
+ |inner|
- inner := eachB + 1.
+ inner := eachB + 1.
- " you should see both eachA and eachB and outer and inner in the debugger "
- " eachA must be 1 ; outer must be 2
- eachB must be 9 ; inner must be 10.
- "
- "/ cg: wait for the debugger to come up,
- "/ take a look at its local-variables inspector...
+ " you should see both eachA and eachB and outer and inner in the debugger "
+ " eachA must be 1 ; outer must be 2
+ eachB must be 9 ; inner must be 10.
+ "
+ "/ cg: wait for the debugger to come up,
+ "/ take a look at its local-variables inspector...
- me := Processor activeProcess.
+ me := Processor activeProcess.
- [
- |debuggers theDebugger fieldList idx|
+ [
+ |debuggers theDebugger fieldList idx|
- Delay waitForSeconds:0.5.
+ Delay waitForSeconds:0.5.
- debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
- self assert:(debuggers size == 1).
- theDebugger := debuggers first.
- fieldList := theDebugger contextInspector fieldList.
- idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
- contextInspectorOK := false
- ].
- ].
- idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
- idx == 0 ifTrue:[
- contextInspectorOK := false
- ] ifFalse:[
- (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
- contextInspectorOK := false
- ].
- ].
- me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
- ] fork.
+ debuggers := DebugView allInstances select:[:dbg | dbg inspectedProcess == me].
+ self assert:(debuggers size == 1).
+ theDebugger := debuggers first.
+ fieldList := theDebugger contextInspector fieldList.
+ idx := fieldList findFirst:[:e | e string startsWith:'eachB '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachB ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ idx := fieldList findFirst:[:e | e string startsWith:'eachA '].
+ idx == 0 ifTrue:[
+ contextInspectorOK := false
+ ] ifFalse:[
+ (theDebugger contextInspector valueAtLine:idx) == eachA ifFalse:[
+ contextInspectorOK := false
+ ].
+ ].
+ me interruptWith:[theDebugger doAbort "AbortOperationRequest raise"].
+ ] fork.
- AbortOperationRequest handle:[:ex |
- ] do:[
- self halt:'checking variables in the debugger...'.
- ].
- self assert:contextInspectorOK.
- ]
+ AbortOperationRequest handle:[:ex |
+ ] do:[
+ self halt:'checking variables in the debugger...'.
+ ].
+ self assert:contextInspectorOK.
+ ]
]
"
@@ -169,15 +169,15 @@
testSteppingInEnsureBlock_01
self halt:'proceed stepping with "next"-Button'.
- "
+ "
you should be able to single-step through all step-sends...
"
self step:1.
[
- self step:2.
- self step:3.
+ self step:2.
+ self step:3.
] ensure:[
- self step:4
+ self step:4
].
self step:5