From 461670dcb467fee36d56aa2fb23dbbe73606e589 Mon Sep 17 00:00:00 2001
From: sbosse <sbosse@uni-bremen.de>
Date: Mon, 21 Jul 2025 22:46:01 +0200
Subject: [PATCH] Mon 21 Jul 22:43:21 CEST 2025

---
 js/dos/test/hs.js | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 js/dos/test/hs.js

diff --git a/js/dos/test/hs.js b/js/dos/test/hs.js
new file mode 100644
index 0000000..f672e4b
--- /dev/null
+++ b/js/dos/test/hs.js
@@ -0,0 +1,34 @@
+/**
+ * Created by sbosse on 5/23/15.
+ */
+
+var Io = require('../io');
+var http = require('http');
+var String = require('../compat').string;
+var Perv = require('../compat').pervasives;
+
+var log=0;
+
+var server = http.createServer(function(request, response) {
+    //Io.inspect(request);
+    String.match(request.method,[
+        ['GET',function() {
+            Io.log((log<1)||Perv.mtime());
+            Io.log((log<1)||request.url);
+            //Io.inspect(response);
+            //response.send('STD_OK');
+            response.writeHead(200);
+            response.write('STD_OK');
+            response.end();
+        }],
+        ['POST',function() {
+            Io.out(request.url);
+        }]
+    ])
+});
+
+server.on("connection", function (socket) {
+    socket.setNoDelay(true);
+});
+
+server.listen(3000);