diff --git a/src/Math-Tests-Complex/PMComplexNumberTest.class.st b/src/Math-Tests-Complex/PMComplexNumberTest.class.st
index e7d9c779..27cb3700 100644
--- a/src/Math-Tests-Complex/PMComplexNumberTest.class.st
+++ b/src/Math-Tests-Complex/PMComplexNumberTest.class.st
@@ -446,6 +446,18 @@ PMComplexNumberTest >> testIsRealOnComplexVector [
 	self deny: vector isReal
 ]
 
+{ #category : #tests }
+PMComplexNumberTest >> testIsRealOnRealMatrix [
+
+	| matrix |
+	matrix := PMMatrix rows: #(
+		#(  1  3  0 )
+		#(  1  2 -4 )
+		#( -8  5 -1 ) ).
+
+	self assert: matrix isReal
+]
+
 { #category : #tests }
 PMComplexNumberTest >> testIsRealOnRealVector [
 
diff --git a/src/Math-Tests-Matrix/PMMatrixTest.class.st b/src/Math-Tests-Matrix/PMMatrixTest.class.st
index 95d0d4ce..7b61eef7 100644
--- a/src/Math-Tests-Matrix/PMMatrixTest.class.st
+++ b/src/Math-Tests-Matrix/PMMatrixTest.class.st
@@ -252,18 +252,6 @@ PMMatrixTest >> testInverseSingularMatrixError [
 		raise: PMSingularMatrixError.
 ]
 
-{ #category : #tests }
-PMMatrixTest >> testIsRealOnRealMatrix [
-	| matrix |
-	
-	matrix := PMMatrix rows: #( 
-		(1 3 0)
-		(1 2 -4)
-		(-8 5 -1)).
-	
-	self assert: matrix isReal.
-]
-
 { #category : #tests }
 PMMatrixTest >> testLUPDecomposition [
 	"Code Example 8.10"