ÿØÿà JFIF 

  
 
  ÿÛ C      

!"$"$ÿÛ C
  ÿÂ p 
" 

ÿÄ  

 

          
 ÿÄ 


 

           
ÿÚ 
   
ÕÔË®
(%	aA*‚XYD¡(J„¡E¢RE,P€XYae )(E¤²€B¤R¥	BQ¤¢ X«)X…€¤   
@  

  ..............................................................................................................................................................................
.............................................................................                                                  
                                                                                                                                                                                     ÿØÿà JFIF 

  
 
  ÿÛ C      

!"$"$ÿÛ C
  ÿÂ p 
" 

ÿÄ  

 

          
 ÿÄ 


 

           
ÿÚ 
   
ÕÔË®
(%	aA*‚XYD¡(J„¡E¢RE,P€XYae )(E¤²€B¤R¥	BQ¤¢ X«)X…€¤   
@  

  ..............................................................................................................................................................................
.............................................................................                                                  
                                                                                                                                                                                     (*
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" }