lenses/tests/test_htpasswd.aug

   1 (*
   2 Module: Test_Htpasswd
   3   Provides unit tests and examples for the <Htpasswd> lens.
   4 *)
   5
   6 module Test_Htpasswd =
   7
   8 let htpasswd = "foo-plain:bar
   9 foo-crypt:78YuxG9nnfUCo
  10 foo-md5:$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/
  11 foo-sha1:{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=
  12 "
  13
  14 test Htpasswd.lns get htpasswd =
  15   { "foo-plain" = "bar" }
  16   { "foo-crypt" = "78YuxG9nnfUCo" }
  17   { "foo-md5" = "$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/" }
  18   { "foo-sha1" = "{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=" }
  19