[test] added a regression test for RBProgramNode >> #propertyAt:ifPre…

…sent:ifAbsent:.
pharo-project · Apr 3, 2019 · cad6952 · cad6952
1 parent be91ba0
commit cad6952
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/AST-Tests-Core/RBProgramNodeTest.class.st b/src/AST-Tests-Core/RBProgramNodeTest.class.st
@@ -207,6 +207,14 @@ RBProgramNodeTest >> testPropertyAtIfAbsentPut [
 	self assert: (self node propertyAt: #foo ifAbsentPut: [ false ])
 ]
 
+{ #category : #'testing-properties' }
+RBProgramNodeTest >> testPropertyAtIfPresentIfAbsent [
+	self assert: (self node propertyAt: #foo ifPresent:[ false ] ifAbsent: [ true ]) equals: true.
+	self node propertyAt: #foo put: true.
+	self assert: (self node propertyAt: #foo ifPresent:[ true ] ifAbsent: [ false ]).
+	self assert: (self node propertyAt: #toto ifPresent:[ false ] ifAbsent: [ true ])
+]
+
 { #category : #'testing-properties' }
 RBProgramNodeTest >> testRemoveProperty [
 	self should: [ self node removeProperty: #foo ] raise: Error.