lenses/tests/test_smbusers.aug

   1 (*
   2 Module: Test_SmbUsers
   3   Provides unit tests and examples for the <SmbUsers> lens.
   4 *)
   5
   6 module Test_SmbUsers =
   7
   8 (* Variable: conf *)
   9 let conf = "# this is a comment
  10
  11 jarwin = JosephArwin
  12 manderso = MarkAnderson MarkusAndersonus
  13 users = @account
  14 nobody = *
  15 ;commented = SomeOne
  16 "
  17
  18 (* Test: Simplevars.lns *)
  19 test SmbUsers.lns get conf =
  20    { "#comment" = "this is a comment" }
  21    { }
  22    { "jarwin"
  23      { "username" = "JosephArwin" } }
  24    { "manderso"
  25      { "username" = "MarkAnderson" }
  26      { "username" = "MarkusAndersonus" } }
  27    { "users"
  28      { "username" = "@account" } }
  29    { "nobody"
  30      { "username" = "*" } }
  31    { "#comment" = "commented = SomeOne" }