Added DataFrame>> #includesAll: with tests.

Author: Joshua-Dias-Barreto

src/DataFrame-Tests/DataFrameTest.class.st

@@ -1954,6 +1954,25 @@ DataFrameTest >> testIncludes [
 	self deny: (df includes: dataSeries2)
 ]
 
+{ #category : #'find-select' }
+DataFrameTest >> testIncludesAll [
+
+	| dataSeries1 dataSeries2 |
+	dataSeries1 := DataSeries
+		               withKeys: #( City Population BeenThere )
+		               values: #( London 8.788 false )
+		               name: 'C'.
+	dataSeries2 := DataSeries
+		               withKeys: #( City Population BeenThere )
+		               values: #( Paris 8.788 false )
+		               name: 'B'.
+
+	self assert: (df includesAll: { dataSeries1 }).
+	self deny: (df includesAll: {
+				 dataSeries1.
+				 dataSeries2 })
+]
+
 { #category : #tests }
 DataFrameTest >> testIndexOfColumnNamed [
 	| expected actual |

src/DataFrame/DataFrame.class.st

@@ -1250,6 +1250,14 @@ DataFrame >> includes: aDataSeries [
 	^ self rows anySatisfy: [ :row | row = aDataSeries ]
 ]
 
+{ #category : #'find-select' }
+DataFrame >> includesAll: aDataSeriesCollection [
+	"Returns true if the DataFrame includes all of the DataSeries in the specified collection."
+
+	^ aDataSeriesCollection allSatisfy: [ :dataSeries |
+		  self includes: dataSeries ]
+]
+
 { #category : #accessing }
 DataFrame >> indexOfColumnNamed: columnName [
 	"Answer the index of a column with a given name or signal an exception if the column with that name was not found"