diff options
| -rw-r--r-- | tests/run.scm | 12 |
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 |