From ed4c73152372311d6152b86ab69ec3ac23b68280 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sat, 11 Dec 2021 10:02:32 -0500
Subject: [PATCH] more tests, including a small sse count

---
 tests/dune             | 20 ++++++++++++++++++++
 tests/sse_count.expect | 23 +++++++++++++++++++++++
 tests/sse_count.sh     |  9 +++++++++
 tiny_httpd.opam        |  1 +
 4 files changed, 53 insertions(+)
 create mode 100644 tests/dune
 create mode 100644 tests/sse_count.expect
 create mode 100755 tests/sse_count.sh

diff --git a/tests/dune b/tests/dune
new file mode 100644
index 00000000..3303531b
--- /dev/null
+++ b/tests/dune
@@ -0,0 +1,20 @@
+
+(rule
+  (targets echo1.out)
+  (deps (:bin ../examples/echo.exe))
+  (locks /port)
+  (action (with-stdout-to %{targets} (run ./echo1.sh %{bin}))))
+
+(rule
+  (alias runtest)
+  (action (diff echo1.expect echo1.out)))
+
+(rule
+  (targets sse_count.out)
+  (deps (:bin ../examples/sse_server.exe))
+  (locks /port)
+  (action (with-stdout-to %{targets} (run ./sse_count.sh %{bin}))))
+
+(rule
+  (alias runtest)
+  (action (diff sse_count.expect sse_count.out)))
diff --git a/tests/sse_count.expect b/tests/sse_count.expect
new file mode 100644
index 00000000..19e6a28d
--- /dev/null
+++ b/tests/sse_count.expect
@@ -0,0 +1,23 @@
+listening on http://localhost:8083/
+data: 0
+
+data: 1
+
+data: 2
+
+data: 3
+
+data: 4
+
+data: 5
+
+data: 6
+
+data: 7
+
+data: 8
+
+data: 9
+
+data: 10
+
diff --git a/tests/sse_count.sh b/tests/sse_count.sh
new file mode 100755
index 00000000..89e0aa0b
--- /dev/null
+++ b/tests/sse_count.sh
@@ -0,0 +1,9 @@
+#!/usr/bin/env sh
+
+SSE_SERVER=$1
+
+"$SSE_SERVER" -p 8083 &
+sleep 0.1
+
+curl -N 'http://localhost:8083/count/10' -H user-agent:test
+kill %1
diff --git a/tiny_httpd.opam b/tiny_httpd.opam
index cbc33ccf..90827ac6 100644
--- a/tiny_httpd.opam
+++ b/tiny_httpd.opam
@@ -15,6 +15,7 @@ depends: [
   "ocaml" { >= "4.04.0" }
   "odoc" {with-doc}
   "qtest" { >= "2.9" & with-test}
+  "conf-curl" {with-test}
   "qcheck" {with-test & >= "0.9" }
   "ounit2" {with-test}
   "ptime" {with-test}