Added an additional assertion

Author: hemalvarambhia

src/Math-Tests-Matrix/PMQRTest.class.st

@@ -6,14 +6,16 @@ Class {
 
 { #category : #running }
 PMQRTest >> assert: inverse isInverseOf: aMatrix [
+	"A~ * A = A * A~ = I"
 
 	| identityMatrix |
 	identityMatrix := inverse * aMatrix.
 	self assert: (aMatrix * identityMatrix closeTo: aMatrix).
 	self assert: identityMatrix * inverse closeTo: inverse.
 	self assert: identityMatrix transpose closeTo: identityMatrix.
 	identityMatrix := aMatrix * inverse.
-	self assert: identityMatrix transpose closeTo: identityMatrix
+	self assert: identityMatrix transpose closeTo: identityMatrix.
+	self assert: (identityMatrix * aMatrix) closeTo: aMatrix.
 ]
 
 { #category : #running }