update network test and fix coroutines errors handling

dev/tests/network.lua

@@ -1,19 +1,38 @@
-local data = "hello, world"
+for i=1,3 do
-local complete = false
+    local text = ""
+    local complete = false
 
-network.tcp_open(7645, function (client)
+    for j=1,100 do
+        text = text .. math.random(0, 9)
+    end
+
+    local server = network.tcp_open(7645, function (client)
         start_coroutine(function()
-        local received = client:recv(1024)
+            local received_text = ""
+            while client:is_alive() do
+                local received = client:recv(512)
                 if received then
-            assert (data, utf8.tostring(received))
+                    received_text = received_text .. utf8.tostring(received)
-            complete = true
                 end
                 coroutine.yield()
+            end
+            assert (received_text == text)
+            complete = true
         end, "client-listener")
-end)
+    end)
 
-network.tcp_connect("localhost", 7645, function (socket)
+    network.tcp_connect("localhost", 7645, function (socket)
-    socket:send(data)
+        start_coroutine(function()
-end)
+            local ptr = 1
+            while ptr < #text do
+                local n = math.random(1, 20)
+                socket:send(string.sub(text, ptr, ptr + n - 1))
+                ptr = ptr + n
+            end
+            socket:close()
+        end, "data-sender")
+    end)
 
-app.sleep_until(function () return complete end)
+    app.sleep_until(function () return complete end)
+    server:close()
+end

res/scripts/stdlib.lua

@@ -531,6 +531,8 @@ function start_coroutine(chunk, name)
     local co = coroutine.create(function()
         local status, error = xpcall(chunk, function(err)
             local fullmsg = "error: "..string.match(err, ": (.+)").."\n"..debug.traceback()
+            
+            if hud then
                 gui.alert(fullmsg, function()
                     if world.is_open() then
                         __vc_app.close_world()
@@ -540,6 +542,7 @@ function start_coroutine(chunk, name)
                         menu.page = "main"
                     end
                 end)
+            end
             return fullmsg
         end)
         if not status then