20 lines
468 B
Plaintext
20 lines
468 B
Plaintext
(*
|
|
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=" }
|
|
|