"{ Package: 'exept: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:'tests'!
testBlockVars_01
|a b|
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
"
self halt:'check variables in the debugger'
]
]
"
self run:#testBlockVars_01
self new testBlockVars_01
"
!
testBlockVars_02
|a b|
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.
"
self halt:'check variables in the debugger'
]
]
"
self run:#testBlockVars_02
self new testBlockVars_02
"
! !
!DebuggerTest class methodsFor:'documentation'!
version
^ '$Header$'
! !