improved test

Author: jordanmontt

src/Math-Vector-Tests/PMVectorTest.class.st

@@ -223,12 +223,13 @@ PMVectorTest >> testVectorFirstNorm [
 	| v1 v2 v3 |
 	v1 := #( 1 0 ) asPMVector.
 	self assert: v1 firstNorm equals: 1.
-	v2 := #( 0 1 ) asPMVector.
-	self assert: v2 firstNorm equals: 1.
-	v3 := #( 1 1 ) asPMVector.
+	v2 := #( 1 1 ) asPMVector.
+	self assert: v2 firstNorm equals: 2.
+	v3 := #( -1 1 ) asPMVector.
 	self assert: v3 firstNorm equals: 2.
 
-	self assert: (v3 + v1) firstNorm equals: 3
+	self assert: (v1 + v2) firstNorm equals: 3.
+	self assert: (v2 + v3) firstNorm equals: 2
 ]
 
 { #category : #tests }