Weitere Tests zu Sonderfällen

INOPIAE · Jun 4, 2023 · 557eb78 · 557eb78
1 parent 7bb6db2
commit 557eb78
Showing 1 changed file with 35 additions and 1 deletion.
diff --git a/TestUnitReiheTest/TestReihe.vb b/TestUnitReiheTest/TestReihe.vb
@@ -16,20 +16,54 @@ Namespace TestUnitReiheTest
             Dim Vorgabe As Long
             Dim Ergebnis
 
+            'Einfache Eingabe
             Eingabe = 4
             Vorgabe = 10
 
             Ergebnis = CF.Reihe(Eingabe)
 
             Assert.AreEqual(Vorgabe, Ergebnis)
 
-
+            'Eingabe größter möglicher Wert
             Eingabe = 4294967295
             Vorgabe = 9223372034707292160
 
             Ergebnis = CF.Reihe(Eingabe)
 
             Assert.AreEqual(Vorgabe, Ergebnis)
+
+            'Eingabe 0 
+            Eingabe = 0
+            Vorgabe = 0
+
+            Ergebnis = CF.Reihe(Eingabe)
+
+            Assert.AreEqual(Vorgabe, Ergebnis)
+
+            'Eingabe negativ
+            Eingabe = -5
+            Vorgabe = 0
+
+            Ergebnis = CF.Reihe(Eingabe)
+
+            Assert.AreEqual(Vorgabe, Ergebnis)
+
+            'Eingabe Nothing 
+            Eingabe = Nothing
+            Vorgabe = 0
+
+            Ergebnis = CF.Reihe(Eingabe)
+
+            Assert.AreEqual(Vorgabe, Ergebnis)
+
+            'Eingabe großer negativer Wert
+            Eingabe = -4294967296
+            Vorgabe = 0
+
+            Ergebnis = CF.Reihe(Eingabe)
+
+            Assert.AreEqual(Vorgabe, Ergebnis)
+
         End Sub