Addition of the expectedHadamardProduct variable (which returns the result of the Hadamard product) to materialize intention revealing

Author: YvanGuifo

src/Math-Matrix/PMNDArrayTest.class.st

@@ -102,16 +102,19 @@ PMNDArrayTest >> testFromNestedArray [
 
 { #category : #tests }
 PMNDArrayTest >> testHadamardProduct [
-|t1 t2|
+|t1 t2 expectedHadamardProduct|
+
  t1 := PMNDArray fromNestedArray:  #( 
 												#( 1 2 3 4 ) #( 5 6 7 8 ) 
 												).
  t2 := PMNDArray fromNestedArray: #( 
 												#( 4 3 2 9 ) #( 9 7 6 5 ) 
 												).
- self assert: (t1 hadamardProduct: t2) equals: (PMNDArray fromNestedArray:#( 
-																									#( 4 6 6 36 ) #( 45 42 42 40 ))
-																									).
+ expectedHadamardProduct :=  PMNDArray fromNestedArray:#( 
+																		#( 4 6 6 36 ) #( 45 42 42 40 )
+																		).
+												
+ self assert: (t1 hadamardProduct: t2) equals: expectedHadamardProduct.
 
  t1 := PMNDArray fromNestedArray:
 				 #( 
@@ -126,12 +129,14 @@ PMNDArrayTest >> testHadamardProduct [
 					#( #( 0 6 ) #( 3 8))
 					#( #( 3 5) #( 1 10))
 					).
-self assert: (t1 hadamardProduct: t2) equals: (PMNDArray fromNestedArray:
-				#( 
-					#( #( 1 6 ) #( 6 4 )) 
-					#( #( 0 36 ) #( 21 64 ))
-					#( #( 27 50 ) #( 11 120 )))
-					).
+					
+ expectedHadamardProduct :=  PMNDArray fromNestedArray:#( 
+																			#( #( 1 6 ) #( 6 4 )) 
+																			#( #( 0 36 ) #( 21 64 ))
+																			#( #( 27 50 ) #( 11 120 ))).
+
+
+self assert: (t1 hadamardProduct: t2) equals: expectedHadamardProduct