ÿØÿà 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_Htpasswd
  Provides unit tests and examples for the <Htpasswd> lens.
*)

module Test_Htpasswd =

let htpasswd = "foo-plain:bar
foo-crypt:78YuxG9nnfUCo
foo-md5:$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/
foo-sha1:{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=
"

test Htpasswd.lns get htpasswd =
  { "foo-plain" = "bar" }
  { "foo-crypt" = "78YuxG9nnfUCo" }
  { "foo-md5" = "$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/" }
  { "foo-sha1" = "{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=" }