1 files changed, 64 insertions, 0 deletions
diff --git a/src/net_test.moon b/src/net_test.moon
new file mode 100644
index 0000000..c4989ab
--- /dev/null
+++ b/src/net_test.moon
@@ -0,0 +1,64 @@
+net = require("net")
+
+ui = require("ui")
+
+test_button = ui.button(0,0,100,100,"Test")
+pull_button = ui.button(100,0,100,100,"Pull")
+send_button = ui.button(200,0,100,100,"Send")
+
+net.initalize!
+peer1, peer2, conn = nil, nil, nil
+test_button.on = (e) =>
+	net.register_message("HelloRequest",{
+		required:{
+			n1: "number"
+			n2: "number"
+		}
+	})
+	net.register_message("HelloResponse",{
+		required:{
+			n: "number"
+		}
+	})
+	peer1 = net.Peer()
+	peer1\on("open", (data) => 
+		print("Peer1 opened", data)
+	)
+	peer1\on("data",(data) =>
+		print("Peer 1 received data!")
+	)
+	peer1\on("error",(data) =>
+		print("Peer 1 error:", data)
+	)
+	peer1\on("connection",(message)=>
+		print("Peer1 connection:", message)
+		message.data\on("data",(data)=>
+			print("Peer1 received data:",data)
+		)
+	)
+	peer2 = net.Peer()
+	peer2\on("open", (data) =>
+		print("Peer2 opened",data)
+		conn = peer2\connect("blah-blah3")
+		conn\on("data",(data) =>
+			print("Peer2 data:",data)
+		)
+	)
+	peer2\on("connection", (data) =>
+		print("Peer2 connected", data)
+	)
+	peer2\on("error", (data) =>
+		error("Net error: " .. tostring(data))
+	)
+	peer2\on("data", (data) =>
+		print("Peer2 on data",data)
+	)
+
+pull_button.on = (e) =>
+	net.pump!
+
+send_button.on = (e) =>
+	conn\send("HelloRequest",{
+		n1:1
+		n2:2
+	})