summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sid_test.ml17
1 files changed, 17 insertions, 0 deletions
diff --git a/sid_test.ml b/sid_test.ml
index 5f9f0b2..0a571c9 100644
--- a/sid_test.ml
+++ b/sid_test.ml
@@ -16,6 +16,23 @@ let max_sid = Stdint.(
Uint64.one
)
+let create_ok () =
+ let w = Sid.WellKnown.everyone
+ and s =
+ match Sid.create ~sa:[| Stdint.Uint32.zero |] Stdint.Uint64.one with
+ | None -> assert_failure "Sid.create failed for S-1-0"
+ | Some s -> s
+ in
+ assert_bool
+ (Printf.sprintf "[%s] ≠ [%s]" (Sid.to_string s) (Sid.to_string w))
+ (Sid.equal s w)
+
+let create_fail () =
+ let sas = Array.make 16 Stdint.Uint32.one in
+ match Sid.create ~sa:sas Stdint.Uint64.zero with
+ | None -> ()
+ | Some s -> assert_failure ("Sid.create succeeded on invalid sa array")
+
let sf_parse_ok () =
let s = Sid.of_string "S-1-1-0" in
let z = Stdint.((Sid.create_unsafe [| Uint32.zero |] Uint64.one)) in