summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/run.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/run.scm b/tests/run.scm
index 880c105..91f7420 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -124,7 +124,7 @@
(jeq #x7f000001 0 1)
(ret 65535)
(ret 0))
- ;; String generated w/ tcpdump -ddd src localhost
+ ;; String generated w/ tcpdump -ddd 'src localhost'
(bpf-bytecode->exprs
(with-input-from-string
(string-join
@@ -141,7 +141,7 @@
"6 0 0 0")
"\n" 'suffix)
(lambda () (read-decimal-bpf-bytecode)))))
- (test "unoptimised data-only dump of port 80"
+ (test "unoptimised data-only dump"
`((ldh (pkt 12))
(jeq #x0800 0 37)
(ldh (pkt 12))
@@ -182,7 +182,7 @@
(jeq #x00 1 0)
(ret 65535)
(ret 0))
- ;; tcpdump -Oddd tcp[tcpflags] & (tcp-syn|tcp-fin) != 0
+ ;; tcpdump -Oddd 'tcp[tcpflags] & (tcp-syn|tcp-fin) != 0'
(bpf-bytecode->exprs
(with-input-from-string
(string-join
@@ -232,7 +232,7 @@
(test-group "decimal bytecode writer"
(test "src localhost"
- ;; String generated w/ tcpdump -ddd src localhost
+ ;; String generated w/ tcpdump -ddd 'src localhost'
(string-join
`("10"
"40 0 0 12"
@@ -261,7 +261,7 @@
(ret 65535)
(ret 0)))))))
- (test "unoptimised data-only dump of port 80"
+ (test "unoptimised data-only dump"
(string-join
`("40"
"40 0 0 12"
@@ -305,7 +305,7 @@
"6 0 0 65535"
"6 0 0 0")
"\n" 'suffix)
- ;; tcpdump -Oddd tcp[tcpflags] & (tcp-syn|tcp-fin) != 0
+ ;; tcpdump -Oddd 'tcp[tcpflags] & (tcp-syn|tcp-fin) != 0'
(with-output-to-string
(lambda ()
(write-decimal-bpf-bytecode