diff options
| author | Maxime Devos <maximedevos@telenet.be> | 2021-09-08 17:52:36 +0200 |
|---|---|---|
| committer | Maxime Devos <maximedevos@telenet.be> | 2021-09-21 12:21:00 +0200 |
| commit | 1b7f52b79b0c0f2f4a622f51b681af974fafd881 (patch) | |
| tree | e4fb9b8f92b6a19c51c8361175997f8b0b229005 /tests | |
| parent | cebbfae04c8bfc110ed34d0e8392f24c1b11efd6 (diff) | |
| download | gnunet-scheme-1b7f52b79b0c0f2f4a622f51b681af974fafd881.tar.gz gnunet-scheme-1b7f52b79b0c0f2f4a622f51b681af974fafd881.zip | |
tests/mq-stream: Add missing parenthesis.
* tests/mq-stream.scm
("messages + eof are injected in-order"): Add #\).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mq-stream.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/mq-stream.scm b/tests/mq-stream.scm index 360e41a..b9819d0 100644 --- a/tests/mq-stream.scm +++ b/tests/mq-stream.scm | |||
| @@ -107,7 +107,7 @@ | |||
| 107 | (! mq (make-message-queue handlers error-handler no-sender)) | 107 | (! mq (make-message-queue handlers error-handler no-sender)) |
| 108 | (<-- () (handle-input*! mq input))) | 108 | (<-- () (handle-input*! mq input))) |
| 109 | ;; TODO: should the port be closed? | 109 | ;; TODO: should the port be closed? |
| 110 | (assert (equal? received 'end-of-file))) | 110 | (assert (equal? received 'end-of-file)))) |
| 111 | 111 | ||
| 112 | (test-assert "overly small message is detected (--> stop)" | 112 | (test-assert "overly small message is detected (--> stop)" |
| 113 | (let^ ((! input/bv #vu8(0 4 0 0 ; Message type 0, size 4 | 113 | (let^ ((! input/bv #vu8(0 4 0 0 ; Message type 0, size 4 |