X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Fping.ml;fp=examples%2Fping.ml;h=08b23c423e1e6f74dc45171fabf4f6d7a224109c;hb=d1e400223f83ce1a4b3ccafda79d882d77eab849;hp=7a274cbfe48954ae5e2a4d9fd0f25ed5cf04370f;hpb=9598ebddee3b74b88aefcd3b47af8cf32dd8e096;p=ocaml-bitstring.git diff --git a/examples/ping.ml b/examples/ping.ml index 7a274cb..08b23c4 100644 --- a/examples/ping.ml +++ b/examples/ping.ml @@ -61,7 +61,7 @@ let display pkt = exit 1 let () = - let pkt = Bitmatch.bitstring_of_file "tests/ipv4.ping" in + let pkt = Bitmatch.bitstring_of_file "ping.ipv4" in display pkt; - let pkt = Bitmatch.bitstring_of_file "tests/ipv6.ping" in + let pkt = Bitmatch.bitstring_of_file "ping.ipv6" in display pkt