|
testLiteralValueAfter
| literalNode |
literalNode := (ReflectivityExamples >> #exampleLiteral) ast statements first value.
self assert: literalNode isLiteralNode.
link := MetaLink new
metaObject: [:value | self assert: value equals: 2];
selector: #value:;
arguments: #(value);
control: #after.
literalNode link: link.
self assert: literalNode hasMetalinkAfter.
self assert: ReflectivityExamples new exampleLiteral == 2.
testLiteralValueBefore
| literalNode |
literalNode := (ReflectivityExamples >> #exampleLiteral) ast statements first value.
self assert: literalNode isLiteralNode.
link := MetaLink new
metaObject: [:value | self assert: value equals: 2];
selector: #value:;
arguments: #(value);
control: #before.
literalNode link: link.
self assert: literalNode hasMetalinkBefore.
self assert: ReflectivityExamples new exampleLiteral == 2.
RFValueReification:
genForLiteralVariable
^RFLiteralVariableNode value: entity value
|
|
|
Priority: 5 – Fix If Time
|
|
Status: Work Needed
|
|
Assigned to: Marcus Denker
|
|
Milestone: Pharo7.0
|
Go to Case
|
|