57 lines
1.4 KiB
OCaml
57 lines
1.4 KiB
OCaml
|
(* Copyright (c) 2014-2017 David Kaloper Meršinjak. All rights reserved.
|
||
|
|
See LICENSE.md. *)
|
||
|
|
|
||
|
|
open Asn_core
|
||
|
|
open Asn_prim
|
||
|
|
|
||
|
|
let replicate n f a =
|
||
|
|
let rec loop acc n =
|
||
|
|
if n <= 0 then acc else loop (f a :: acc) (pred n) in
|
||
|
|
loop [] n
|
||
|
|
|
||
|
|
let r_prim : type a. a prim -> a = function
|
||
|
|
|
||
|
|
| Bool -> Boolean.random ()
|
||
|
|
| Int -> Integer.random ()
|
||
|
|
| Bits -> Bits.random ()
|
||
|
|
| Octets -> Octets.random ()
|
||
|
|
| Null -> ()
|
||
|
|
| OID -> OID.random ()
|
||
|
|
| CharString -> Gen_string.random ()
|
||
|
|
|
||
|
|
let rec r_element : type a. a element -> a = function
|
||
|
|
|
||
|
|
| Required (_, asn) -> r_asn asn
|
||
|
|
| Optional (_, asn) ->
|
||
|
|
if Random.int 3 = 0 then None
|
||
|
|
else Some (r_asn asn)
|
||
|
|
|
||
|
|
and r_seq : type a. a sequence -> a = function
|
||
|
|
|
||
|
|
| Last e -> r_element e
|
||
|
|
| Pair (e, es) -> (r_element e, r_seq es)
|
||
|
|
|
||
|
|
and r_seq_of : type a. a asn -> a list = fun asn ->
|
||
|
|
|
||
|
|
replicate Random.(int 10) r_asn asn
|
||
|
|
|
||
|
|
and r_asn : type a. a asn -> a = function
|
||
|
|
|
||
|
|
| Iso (f, _, None, asn) -> f @@ r_asn asn
|
||
|
|
| Iso (_, _, Some rnd, _) -> rnd ()
|
||
|
|
|
||
|
|
| Fix (f, _) as fix -> r_asn (f fix)
|
||
|
|
|
||
|
|
| Sequence asns -> r_seq asns
|
||
|
|
| Set asns -> r_seq asns
|
||
|
|
| Sequence_of asn -> r_seq_of asn
|
||
|
|
| Set_of asn -> r_seq_of asn
|
||
|
|
|
||
|
|
| Choice (asn1, asn2) ->
|
||
|
|
if Random.bool () then L (r_asn asn1) else R (r_asn asn2)
|
||
|
|
|
||
|
|
| Implicit (_, asn) -> r_asn asn
|
||
|
|
| Explicit (_, asn) -> r_asn asn
|
||
|
|
|
||
|
|
| Prim p -> r_prim p
|