diff options
| author | Peter Bex <peter@more-magic.net> | 2013-05-10 21:12:53 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2016-03-04 21:38:49 +0100 |
| commit | ec91a18f1c8e9585533b9e80944e7557885173f5 (patch) | |
| tree | c62b1a226fd2fe14b25482ce54da09f4f74aa7e6 /tests | |
| parent | 0d53a1f595a568166b1496a1c7bc0f7cb1184c05 (diff) | |
| download | bpf-ec91a18f1c8e9585533b9e80944e7557885173f5.tar.gz | |
Fix comments
Diffstat (limited to 'tests')
| -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 |