File tree Expand file tree Collapse file tree 5 files changed +7
-7
lines changed Expand file tree Collapse file tree 5 files changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -40,7 +40,7 @@ Library quickcheck
40
40
quickcheck
41
41
Modules:
42
42
Arbitrary_Base,
43
- Packet_Arbitrary
43
+ Arbitrary_Packet
44
44
45
45
Executable testtool
46
46
Path: test
File renamed without changes.
Original file line number Diff line number Diff line change 1
1
# OASIS_START
2
- # DO NOT EDIT (digest: 3499f600304ecd041e197c40293470fb )
2
+ # DO NOT EDIT (digest: 330820d542742d1a91c67ac9e7db617c )
3
3
Arbitrary_Base
4
- Packet_Arbitrary
4
+ Arbitrary_Packet
5
5
# OASIS_STOP
Original file line number Diff line number Diff line change 1
1
(* setup.ml generated for the first time by OASIS v0.3.0 *)
2
2
3
3
(* OASIS_START *)
4
- (* DO NOT EDIT (digest: f87c376e87f25a9fc98f6cd66fb6017f ) *)
4
+ (* DO NOT EDIT (digest: b16821acf833b7560ee1257ce9b521a0 ) *)
5
5
(*
6
6
Regenerated by OASIS v0.4.1
7
7
Visit http://oasis.forge.ocamlcore.org for more information and
@@ -6904,7 +6904,7 @@ let setup_t =
6904
6904
bs_nativeopt = [(OASISExpr. EBool true , [] )]
6905
6905
},
6906
6906
{
6907
- lib_modules = [" Arbitrary_Base" ; " Packet_Arbitrary " ];
6907
+ lib_modules = [" Arbitrary_Base" ; " Arbitrary_Packet " ];
6908
6908
lib_pack = false ;
6909
6909
lib_internal_modules = [] ;
6910
6910
lib_findlib_parent = Some " packet" ;
@@ -6992,7 +6992,7 @@ let setup_t =
6992
6992
};
6993
6993
oasis_fn = Some " _oasis" ;
6994
6994
oasis_version = " 0.4.1" ;
6995
- oasis_digest = Some " \129\135 ( \162 [lG \161\213 &4 \027 wZ \159 J " ;
6995
+ oasis_digest = Some " p0 \128\249\191\242\255\025\229\225 ]JG \128\199\224 " ;
6996
6996
oasis_exec = None ;
6997
6997
oasis_setup_args = [] ;
6998
6998
setup_update = false
Original file line number Diff line number Diff line change @@ -12,7 +12,7 @@ let packet_quickCheck arbitrary pred =
12
12
| Exhausted _ -> failwith " No exhaustion expected"
13
13
14
14
module RoundTrip = struct
15
- module Arb = Packet_Arbitrary
15
+ module Arb = Arbitrary_Packet
16
16
17
17
let unparsable_eq (l1 , b1 ) (l2 , b2 ) =
18
18
l1 = l2 && compare (Cstruct. to_string b1) (Cstruct. to_string b2) = 0
You can’t perform that action at this time.
0 commit comments