fix ReadJagged() and WriteJagged() not looping through a jagged byte …

…array properly.

Maelstrom/Source/Socket/Methods.vb

@@ -236,7 +236,7 @@ Public Partial Class Socket
                 ReDim Output(ReadIsJagged - 1)
                 ReadJaggedIndexer = 0
                 ReadJaggedCounter = 0
-                Do Until ReadJaggedIndexer = ReadIsJagged
+                Do Until ReadJaggedIndexer > ReadIsJagged - 1
                     UnpackInt32(ReadPaddedData, ReadJaggedIndexLength, ReadJaggedCounter)
                     ReadJaggedCounter += 4
                     Redim Output(ReadJaggedIndexer)(ReadJaggedIndexLength - 1)
@@ -277,7 +277,7 @@ Public Partial Class Socket
                 ReDim Output(ReadIsJagged - 1)
                 ReadJaggedIndexer = 0
                 ReadJaggedCounter = 0
-                Do Until ReadJaggedIndexer = ReadIsJagged
+                Do Until ReadJaggedIndexer > ReadIsJagged - 1
                     UnpackInt32(ReadPaddedData, ReadJaggedIndexLength, ReadJaggedCounter)
                     ReadJaggedCounter += 4
                     Redim Output(ReadJaggedIndexer)(ReadJaggedIndexLength - 1)
@@ -294,9 +294,9 @@ Public Partial Class Socket
         If Manager.Contains(Index) = False Then Throw New ArgumentException("Parameter 'Index' referrs to a non-existent stream!")
         If Input Is Nothing Then Throw New ArgumentException("Parameter 'Input' must not be nothing!")
         SyncLock WriteLock
-            WriteDataLength = input.Length*4
+            WriteDataLength = input.Length * 4
             WriteJaggedIndexer = 0
-            Do Until WriteJaggedIndexer = Input.Length - 1
+            Do Until WriteJaggedIndexer > Input.Length - 1
                 WriteDataLength += Input(WriteJaggedIndexer).Length
                 WriteJaggedIndexer += 1
             Loop
@@ -309,7 +309,7 @@ Public Partial Class Socket
 
             WriteJaggedIndexer = 0
             WriteJaggedCounter = 0
-            Do Until WriteJaggedIndexer = Input.Length - 1
+            Do Until WriteJaggedIndexer > Input.Length - 1
                 PackInt32(Input(WriteJaggedIndexer).Length, WritePaddedData, WriteJaggedCounter)
                 WriteJaggedCounter += 4
                 Buffer.BlockCopy(Input(WriteJaggedIndexer), 0, WritePaddedData, WriteJaggedCounter,

MaelstromTests/TestClient.vb

@@ -1,7 +1,7 @@
 Imports Maelstrom
 
 Friend Class TestClient : Inherits ClientBase
-    Dim P(4)() as Byte
+    Dim P(3)() as Byte
 
     Protected Overrides Sub OnConnectionErrored(Socket As Socket, SError As SocketError)
         Console.WriteLine("DEBUG - CLIENT: client connection setup errored: " + SError.ToString())
@@ -33,7 +33,7 @@ Friend Class TestClient : Inherits ClientBase
                    1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
                    1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}
         Next
-        for x = 0 to 199
+        for x = 0 to 0
             CreateAsyncInstance(Socket,x)
         Next
 
@@ -50,7 +50,7 @@ Friend Class TestClient : Inherits ClientBase
     Private Sub CreateAsyncInstance(Socket as Socket, Index as Int32)
         Dim AsyncThread as new Threading.Thread(
             Sub()
-                Dim Governor as new Governor(1000)
+                Dim Governor as new Governor(1)
                 Socket.CreateStream(Index)
                 Socket.WriteJagged(Index, P)
                 Do While Socket.Connected = True

MaelstromTests/TestServer.vb

@@ -1,7 +1,7 @@
 Imports Maelstrom
 
 Friend Class TestServer : Inherits ServerBase
-    Dim P(4)() as Byte
+    Dim P(3)() as Byte
     Protected Overrides Sub OnConnectionErrored(Socket As Socket, SError As SocketError)
         Console.WriteLine("DEBUG - SERVER: client connection setup errored: " + SError.ToString())
     End Sub
@@ -12,7 +12,7 @@ Friend Class TestServer : Inherits ServerBase
 
     Protected Overrides Sub OnConnectionMain(Socket As Socket)
         Dim Governor as new Governor(10)
-        for x = 0 to 199
+        for x = 0 to 0
             CreateAsyncInstance(Socket,x)
         Next
         Do While Socket.Connected = True And Online = True
@@ -54,7 +54,7 @@ Friend Class TestServer : Inherits ServerBase
     Private Sub CreateAsyncInstance(Socket as Socket, Index as Int32)
         Dim AsyncThread as new Threading.Thread(
             Sub()
-                Dim Governor as new Governor(1000)
+                Dim Governor as new Governor(1)
                 Socket.CreateStream(Index)
                 Socket.WriteJagged(Index, P)
                 Do While Socket.Connected = True And Online = True