From 0595f30b8490aa212b2a17fc7539ae09ef38f01f Mon Sep 17 00:00:00 2001 From: Stefan Marr Date: Sun, 16 Jun 2024 13:05:11 +0100 Subject: [PATCH] Fix Vector?Test.som files, which had not yet been updated. Signed-off-by: Stefan Marr --- Examples/Benchmarks/TestSuite/Vector2Test.som | 40 +++++++++---------- Examples/Benchmarks/TestSuite/Vector3Test.som | 40 +++++++++---------- Examples/Benchmarks/TestSuite/Vector4Test.som | 40 +++++++++---------- Examples/Benchmarks/TestSuite/Vector5Test.som | 40 +++++++++---------- 4 files changed, 80 insertions(+), 80 deletions(-) diff --git a/Examples/Benchmarks/TestSuite/Vector2Test.som b/Examples/Benchmarks/TestSuite/Vector2Test.som index 966f4493..26b7e0d1 100644 --- a/Examples/Benchmarks/TestSuite/Vector2Test.som +++ b/Examples/Benchmarks/TestSuite/Vector2Test.som @@ -54,7 +54,7 @@ Vector2Test = TestCase ( self assert: 1 equals: v first ]. 1 to: 10 do: [:i | - self assert: 1 equals: v first. + self assert: i equals: v first. v removeFirst ] ) @@ -148,7 +148,7 @@ Vector2Test = TestCase ( self assert: 1 equals: (arr at: 1). self assert: 2 equals: (arr at: 2). ) - + testAsSet = ( | v set | v := Vector new. @@ -157,38 +157,38 @@ Vector2Test = TestCase ( v append: 3. v append: 4. self assert: 4 equals: v size. - + set := v asSet. self assert: 4 equals: set size. - + v append: 1. v append: 1. v append: 1. - + self assert: 4 + 3 equals: v size. - + set := v asSet. self assert: 4 equals: set size. ) - + testIsEmpty = ( | v | v := Vector new. self assert: v isEmpty. - + v append: 1. self deny: v isEmpty. - + v removeFirst. self assert: v isEmpty. - + v append: #ee. self deny: v isEmpty. - + v removeFirst. - self assert: v isEmpty. + self assert: v isEmpty. ) - + testRemoveObj = ( | v | v := Vector new. @@ -200,31 +200,31 @@ Vector2Test = TestCase ( v append: #f. v append: #g. v append: #h. - + self assert: 8 equals: v size. - + self deny: (v remove: #aa). self assert: (v remove: #e). self assert: 7 equals: v size. ) - + testAppendComma = ( | v | v := Vector new. v, #a. v, #b. - + self assert: 2 equals: v size. self assert: (v contains: #a). self assert: (v contains: #b). ) - + testDoIndexes = ( | i v | v := Vector new. v doIndexes: [:j | self assert: false ]. - + v appendAll: #(1 2 3 4 5). i := 1. v doIndexes: [:j | @@ -233,7 +233,7 @@ Vector2Test = TestCase ( ]. self assert: 6 equals: i. ) - + testDo = ( | i v | v := Vector new. diff --git a/Examples/Benchmarks/TestSuite/Vector3Test.som b/Examples/Benchmarks/TestSuite/Vector3Test.som index b7a22bc3..6aaa8d51 100644 --- a/Examples/Benchmarks/TestSuite/Vector3Test.som +++ b/Examples/Benchmarks/TestSuite/Vector3Test.som @@ -54,7 +54,7 @@ Vector3Test = TestCase ( self assert: 1 equals: v first ]. 1 to: 10 do: [:i | - self assert: 1 equals: v first. + self assert: i equals: v first. v removeFirst ] ) @@ -148,7 +148,7 @@ Vector3Test = TestCase ( self assert: 1 equals: (arr at: 1). self assert: 2 equals: (arr at: 2). ) - + testAsSet = ( | v set | v := Vector new. @@ -157,38 +157,38 @@ Vector3Test = TestCase ( v append: 3. v append: 4. self assert: 4 equals: v size. - + set := v asSet. self assert: 4 equals: set size. - + v append: 1. v append: 1. v append: 1. - + self assert: 4 + 3 equals: v size. - + set := v asSet. self assert: 4 equals: set size. ) - + testIsEmpty = ( | v | v := Vector new. self assert: v isEmpty. - + v append: 1. self deny: v isEmpty. - + v removeFirst. self assert: v isEmpty. - + v append: #ee. self deny: v isEmpty. - + v removeFirst. - self assert: v isEmpty. + self assert: v isEmpty. ) - + testRemoveObj = ( | v | v := Vector new. @@ -200,31 +200,31 @@ Vector3Test = TestCase ( v append: #f. v append: #g. v append: #h. - + self assert: 8 equals: v size. - + self deny: (v remove: #aa). self assert: (v remove: #e). self assert: 7 equals: v size. ) - + testAppendComma = ( | v | v := Vector new. v, #a. v, #b. - + self assert: 2 equals: v size. self assert: (v contains: #a). self assert: (v contains: #b). ) - + testDoIndexes = ( | i v | v := Vector new. v doIndexes: [:j | self assert: false ]. - + v appendAll: #(1 2 3 4 5). i := 1. v doIndexes: [:j | @@ -233,7 +233,7 @@ Vector3Test = TestCase ( ]. self assert: 6 equals: i. ) - + testDo = ( | i v | v := Vector new. diff --git a/Examples/Benchmarks/TestSuite/Vector4Test.som b/Examples/Benchmarks/TestSuite/Vector4Test.som index c53ee0ce..d3930234 100644 --- a/Examples/Benchmarks/TestSuite/Vector4Test.som +++ b/Examples/Benchmarks/TestSuite/Vector4Test.som @@ -54,7 +54,7 @@ Vector4Test = TestCase ( self assert: 1 equals: v first ]. 1 to: 10 do: [:i | - self assert: 1 equals: v first. + self assert: i equals: v first. v removeFirst ] ) @@ -148,7 +148,7 @@ Vector4Test = TestCase ( self assert: 1 equals: (arr at: 1). self assert: 2 equals: (arr at: 2). ) - + testAsSet = ( | v set | v := Vector new. @@ -157,38 +157,38 @@ Vector4Test = TestCase ( v append: 3. v append: 4. self assert: 4 equals: v size. - + set := v asSet. self assert: 4 equals: set size. - + v append: 1. v append: 1. v append: 1. - + self assert: 4 + 3 equals: v size. - + set := v asSet. self assert: 4 equals: set size. ) - + testIsEmpty = ( | v | v := Vector new. self assert: v isEmpty. - + v append: 1. self deny: v isEmpty. - + v removeFirst. self assert: v isEmpty. - + v append: #ee. self deny: v isEmpty. - + v removeFirst. - self assert: v isEmpty. + self assert: v isEmpty. ) - + testRemoveObj = ( | v | v := Vector new. @@ -200,31 +200,31 @@ Vector4Test = TestCase ( v append: #f. v append: #g. v append: #h. - + self assert: 8 equals: v size. - + self deny: (v remove: #aa). self assert: (v remove: #e). self assert: 7 equals: v size. ) - + testAppendComma = ( | v | v := Vector new. v, #a. v, #b. - + self assert: 2 equals: v size. self assert: (v contains: #a). self assert: (v contains: #b). ) - + testDoIndexes = ( | i v | v := Vector new. v doIndexes: [:j | self assert: false ]. - + v appendAll: #(1 2 3 4 5). i := 1. v doIndexes: [:j | @@ -233,7 +233,7 @@ Vector4Test = TestCase ( ]. self assert: 6 equals: i. ) - + testDo = ( | i v | v := Vector new. diff --git a/Examples/Benchmarks/TestSuite/Vector5Test.som b/Examples/Benchmarks/TestSuite/Vector5Test.som index 6331f18a..121904dd 100644 --- a/Examples/Benchmarks/TestSuite/Vector5Test.som +++ b/Examples/Benchmarks/TestSuite/Vector5Test.som @@ -54,7 +54,7 @@ Vector5Test = TestCase ( self assert: 1 equals: v first ]. 1 to: 10 do: [:i | - self assert: 1 equals: v first. + self assert: i equals: v first. v removeFirst ] ) @@ -148,7 +148,7 @@ Vector5Test = TestCase ( self assert: 1 equals: (arr at: 1). self assert: 2 equals: (arr at: 2). ) - + testAsSet = ( | v set | v := Vector new. @@ -157,38 +157,38 @@ Vector5Test = TestCase ( v append: 3. v append: 4. self assert: 4 equals: v size. - + set := v asSet. self assert: 4 equals: set size. - + v append: 1. v append: 1. v append: 1. - + self assert: 4 + 3 equals: v size. - + set := v asSet. self assert: 4 equals: set size. ) - + testIsEmpty = ( | v | v := Vector new. self assert: v isEmpty. - + v append: 1. self deny: v isEmpty. - + v removeFirst. self assert: v isEmpty. - + v append: #ee. self deny: v isEmpty. - + v removeFirst. - self assert: v isEmpty. + self assert: v isEmpty. ) - + testRemoveObj = ( | v | v := Vector new. @@ -200,31 +200,31 @@ Vector5Test = TestCase ( v append: #f. v append: #g. v append: #h. - + self assert: 8 equals: v size. - + self deny: (v remove: #aa). self assert: (v remove: #e). self assert: 7 equals: v size. ) - + testAppendComma = ( | v | v := Vector new. v, #a. v, #b. - + self assert: 2 equals: v size. self assert: (v contains: #a). self assert: (v contains: #b). ) - + testDoIndexes = ( | i v | v := Vector new. v doIndexes: [:j | self assert: false ]. - + v appendAll: #(1 2 3 4 5). i := 1. v doIndexes: [:j | @@ -233,7 +233,7 @@ Vector5Test = TestCase ( ]. self assert: 6 equals: i. ) - + testDo = ( | i v | v := Vector new.