Add tests for complex numbers

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

@@ -637,6 +637,15 @@ PMComplexNumberTest >> testRaisedTo [
 	self assert: c3 imaginary closeTo: c imaginary
 ]
 
+{ #category : #'testing - mathematical functions' }
+PMComplexNumberTest >> testRaisedToFractionalPower [
+
+	| z expected |
+	z := 0 + 1 i.
+	expected := 3 sqrt / 2 + (1 / 2) i.
+	self assert: (z raisedTo: 1 / 3) closeTo: expected 
+]
+
 { #category : #'testing - mathematical functions' }
 PMComplexNumberTest >> testRaisedToInteger [
 	| c c3 |
@@ -646,6 +655,21 @@ PMComplexNumberTest >> testRaisedToInteger [
 	self assert: c3 reciprocal equals: (c raisedToInteger: -3)
 ]
 
+{ #category : #'testing - mathematical functions' }
+PMComplexNumberTest >> testRaisedToNegativeInteger [
+	| z |
+	z := (3 sqrt / 2) + (1 / 2) i.
+	self assert: (z raisedTo: -3) closeTo: (0 - 1 i).
+]
+
+{ #category : #'testing - mathematical functions' }
+PMComplexNumberTest >> testRaisedToPositiveInteger [
+	| z zCubed |
+	z := (3 sqrt / 2) + (1 / 2) i.
+	zCubed := (z raisedTo: 3) .
+	self assert: zCubed closeTo: (0 + 1 i).
+]
+
 { #category : #tests }
 PMComplexNumberTest >> testRandom [
 	| random c r |