"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#DebuggerTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

!DebuggerTest class methodsFor:'documentation'!

documentation

"

     documentation to be added.

    [author:]

	Claus Gittinger (cg@alan)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

history

    "Created: / 11.11.2003 / 17:21:55 / cg"

! !

!DebuggerTest methodsFor:'helpers'!

step:nr

    Transcript show:'step '; showCR:nr

! !

!DebuggerTest methodsFor:'tests'!

testBlockVars_01

    |a b me contextInspectorOK|

    contextInspectorOK := true.

    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

	    "

	    "/ cg: wait for the debugger to come up,

	    "/ take a look at its local-variables inspector...

	    me := Processor activeProcess.

	    [

		|debuggers theDebugger fieldList idx|

		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.

	    AbortOperationRequest handle:[:ex |

	    ] do:[

		self halt:'checking variables in the debugger...'.

	    ].

	    self assert:contextInspectorOK.

	]

    ]

    "

     self run:#testBlockVars_01

     self new testBlockVars_01

    "

!

testBlockVars_02

    |a b contextInspectorOK me|

    contextInspectorOK := true.

    a := #( 1 2 3 4 ).

    b := #( 9 8 7 6 ).

    a do:[:eachA |

	|outer|

	outer := eachA + 1.

	b do:[:eachB |

	    |inner|

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

	    me := Processor activeProcess.

	    [

		|debuggers theDebugger fieldList idx|

		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.

	    AbortOperationRequest handle:[:ex |

	    ] do:[

		self halt:'checking variables in the debugger...'.

	    ].

	    self assert:contextInspectorOK.

	]

    ]

    "

     self run:#testBlockVars_02

     self new testBlockVars_02

    "

!

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.

    ] ensure:[

	self step:4

    ].

    self step:5

    "

     self run:#testSteppingInEnsureBlock_01

     self new testSteppingInEnsureBlock_01

    "

! !

!DebuggerTest class methodsFor:'documentation'!

version

    ^ '$Header$'

! !