Added unit test for the error case of Vector>>#remove and #removeFirst

Signed-off-by: Stefan Marr <[email protected]>
SOM-st · Jan 26, 2024 · ff9245b · ff9245b
1 parent f56cc8e
commit ff9245b
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/TestSuite/VectorSubclass.som b/TestSuite/VectorSubclass.som
@@ -0,0 +1,5 @@
+VectorSubclass = Vector (
+  error: string = (
+    ^ #error
+  )
+)
diff --git a/TestSuite/VectorTest.som b/TestSuite/VectorTest.som
@@ -103,6 +103,18 @@ VectorTest = TestCase (
       v remove ]
   )
 
+  testRemoveOnEmptyWithSubclass = (
+    | v |
+    v := VectorSubclass new.
+    self assert: #error is: v remove.
+  )
+
+  testRemoveFirstOnEmptyWithSubclass = (
+    | v |
+    v := VectorSubclass new.
+    self assert: #error is: v removeFirst.
+  )
+
   testContains = (
     self assert: (a contains: 'hello').
     self assert: (a contains: #world).