Merge pull request #14 from YannickChevalier/13-add_request

Addition of a add: anElement unless: aPresentelementSatisties for issue 13

Author: Ducasse

src/Containers-Queue-Tests/CTQueueTest.class.st

@@ -421,3 +421,22 @@ CTQueueTest >> testSize [
 	queue dequeue.
 	self assert: queue size equals: 2
 ]
+
+{ #category : 'tests' }
+CTQueueTest >> testEnqueueUnless [
+	queue enqueue:  1 unless: [ :v | (v rem: 2) = 0].
+	self assert: (queue includes: 1).
+	self assert: queue size equals: 1 .
+	queue enqueue: 2 unless: [ :v | (v rem: 2) = 0].
+	self assert: (queue includes: 1).
+	self assert: (queue includes: 2) .
+	self assert: queue size equals: 2 .
+	queue enqueue: 4 unless: [ :v | (v rem: 2) = 0].
+	self assert: (queue includes: 1).
+	self assert: (queue includes: 2) .
+	self assert: queue size equals: 2 .
+	queue enqueue: 3 unless: [ :v | (v rem: 2) = 0].
+	self assert: (queue includes: 1).
+	self assert: (queue includes: 2) .
+	self assert: queue size equals: 2
+]

src/Containers-Queue/CTQueue.class.st

@@ -105,6 +105,19 @@ CTQueue >> enqueue: anObject [
 	size := size + 1.
 	^ self
 ]
+{ #category : 'adding' }
+CTQueue >> enqueue: anObject unless: thisTestIsTrue [
+	1 to: self size do: [ :i |
+		( thisTestIsTrue value: (elements at: (self indexAt: i - 1 ) ) ) ifTrue: [ ^ self ]
+		].
+	self isFull ifTrue: [ self grow ].
+	
+	elements at: rearIndex put: anObject.
+	rearIndex := self nextIndex: rearIndex.
+	size := size + 1.
+	^ self
+]
+
 
 { #category : 'adding' }
 CTQueue >> enqueueAll: aCollection [
@@ -217,3 +230,4 @@ CTQueue >> size [
 
 	^ size
 ]
+