From ec91a18f1c8e9585533b9e80944e7557885173f5 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Fri, 10 May 2013 21:12:53 +0200 Subject: Fix comments --- tests/run.scm | 12 ++++++------ 1 file 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 -- cgit v1.2.3