Tests in MethodMapExample splited between FullBlock and CleanBlock + CleanBlock unreleated test fix

Author: JMLF

src/OpalCompiler-Tests/MethodMapExamples.class.st

@@ -24,6 +24,14 @@ MethodMapExamples >> exampleAccessOuterFromCleanBlock [
 	^[ thisContext tempNamed: 'b' ] value
 ]
 
+{ #category : 'examples' }
+MethodMapExamples >> exampleAccessOuterFromFullBlock [
+	<compilerOptions: #(- optionCleanBlockClosure)>
+	| b |
+	b := 1.
+	^[ thisContext tempNamed: 'b' ] value
+]
+
 { #category : 'examples' }
 MethodMapExamples >> exampleConstantBlock [
 

src/OpalCompiler-Tests/MethodMapTest.class.st

@@ -113,7 +113,16 @@ MethodMapTest >> testDeadContextSourceNode [
 
 { #category : 'tests - temp access' }
 MethodMapTest >> testExampleAccessOuterFromCleanBlock [
-	self assert: (self compileAndRunExample: #exampleAccessOuterFromCleanBlock) equals: 1
+"Should rise an exception since we are trying to access outerContext from a clean block"
+	self should: [(self compileAndRunExample: #exampleAccessOuterFromCleanBlock)] raise: Exception.
+
+]
+
+{ #category : 'tests - temp access' }
+MethodMapTest >> testExampleAccessOuterFromFullBLock [
+
+	self assert: (self compileAndRunExample: #exampleAccessOuterFromFullBlock) equals: 1
+
 ]
 
 { #category : 'tests - temp access' }

src/OpalCompiler-Tests/OCContextTempMappingTest.class.st

@@ -33,15 +33,15 @@ OCContextTempMappingTest >> fetchArgFromOptimizedBlockInsideFullBlock: anArg ext
 
 { #category : 'tests' }
 OCContextTempMappingTest >> testAccessingArgOfOuterBlockFromAnotherDeepBlock [
-
+	<compilerOptions: #(- optionCleanBlockClosure)>
 	| actual |
 
 	"Check the source code availability to do not fail on images without sources"
 	thisContext method hasSourceCode ifFalse: [ ^ self skip ].
 
 	actual := [:outerArg |
 		outerArg asString.
-		[ :innerArg | innerArg asString. thisContext tempNamed: #outerArg ] value: #innerValue.
+		[ :innerArg | innerArg asString.thisContext tempNamed: #outerArg ] value: #innerValue.
 		] value: #outerValue.
 
 	self assert: actual equals: #outerValue