Sharp.Augeas/Sharp.Augeas.Test/lens/tests/test_smbusers.aug

32 lines
664 B
Plaintext
Raw Permalink Normal View History

2022-11-08 20:57:02 +03:00
(*
Module: Test_SmbUsers
Provides unit tests and examples for the <SmbUsers> lens.
*)
module Test_SmbUsers =
(* Variable: conf *)
let conf = "# this is a comment
jarwin = JosephArwin
manderso = MarkAnderson MarkusAndersonus
users = @account
nobody = *
;commented = SomeOne
"
(* Test: Simplevars.lns *)
test SmbUsers.lns get conf =
{ "#comment" = "this is a comment" }
{ }
{ "jarwin"
{ "username" = "JosephArwin" } }
{ "manderso"
{ "username" = "MarkAnderson" }
{ "username" = "MarkusAndersonus" } }
{ "users"
{ "username" = "@account" } }
{ "nobody"
{ "username" = "*" } }
{ "#comment" = "commented = SomeOne" }