Skip to content

Commit 289d787

Browse files
authored
Merge pull request #110 from guillep/Pharo14
Make some tests more robust
2 parents 700abac + c226013 commit 289d787

2 files changed

Lines changed: 4 additions & 67 deletions

File tree

‎src/Sindarin-Tests/SindarinDebuggerTest.class.st‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1106,8 +1106,9 @@ SindarinDebuggerTest >> testMoveToNodeWhenNodeIsInIfTrueIfFalseBlock [
11061106

11071107
self assert: (sdbg readVariableNamed: #a) equals: 3.
11081108

1109-
sdbg stepOver.
11101109
"When you perform a stepOver, you quit the block and continue just after the ifTrue: message"
1110+
sdbg stepOver.
1111+
sdbg stepOver.
11111112
self assert: (sdbg readVariableNamed: #a) equals: 4
11121113
]
11131114

@@ -1407,9 +1408,8 @@ SindarinDebuggerTest >> testSkipCannotSkipReturnIfItIsTheLastReturn [
14071408
"we step until we arrive on the method node in `SindarinDebuggerTest>>#methodWithSeveralReturns`, which is mapped to the implicit return bycode."
14081409
scdbg step.
14091410
nodeWithImplicitReturn := scdbg methodNode.
1410-
3 timesRepeat: [ scdbg step ].
1411-
1412-
self assert: scdbg node identicalTo: nodeWithImplicitReturn.
1411+
[scdbg node == nodeWithImplicitReturn]
1412+
whileFalse: [ scdbg step ].
14131413
self assert: scdbg instructionStream willReturn.
14141414

14151415
"We skip the return node"

‎src/Sindarin/InstructionStream.extension.st‎

Lines changed: 0 additions & 63 deletions
This file was deleted.

0 commit comments

Comments
 (0)