Added a test demonstrating that the square root of a negative real number is pure imaginary.

Author: hemalvarambhia

src/Math-Tests-Complex/PMComplexTest.class.st

@@ -617,6 +617,15 @@ PMComplexTest >> testSinh [
 	self assert: (c sinh imaginary closeTo: c2 imaginary).
 ]
 
+{ #category : #tests }
+PMComplexTest >> testSquareRootOfANegativeRealNumberIsPureImaginary [
+	"Given z = -4 + 0 i, the square root is 2 i"
+			
+	| squareRoot |
+	squareRoot := (PMComplex real: -4 imaginary: 0) sqrt .
+	self assert: squareRoot equals: 2 i. 
+]
+
 { #category : #tests }
 PMComplexTest >> testSquared [
 	"self run: #testSquared"