lenses/tests/test_postfix_passwordmap.aug

   1 (*
   2 Module: Test_Postfix_Passwordmap
   3   Provides unit tests and examples for the <Postfix_Passwordmap> lens.
   4 *)
   5
   6 module Test_Postfix_Passwordmap =
   7
   8 (* View: conf *)
   9 let conf = "# comment
  10 *                               username:password
  11 [mail.isp.example]              username:password
  12 [mail.isp.example]:submission   username:password
  13 [mail.isp.example]:587          username:password
  14 mail.isp.example                username:password
  15 user@mail.isp.example           username:
  16 mail.isp.example
  17         username2:password2
  18 "
  19
  20 (* Test: Postfix_Passwordmap.lns *)
  21 test Postfix_Passwordmap.lns get conf =
  22   { "#comment" = "comment" }
  23   { "pattern" = "*"
  24     { "username" = "username" }
  25     { "password" = "password" } }
  26   { "pattern" = "[mail.isp.example]"
  27     { "username" = "username" }
  28     { "password" = "password" } }
  29   { "pattern" = "[mail.isp.example]:submission"
  30     { "username" = "username" }
  31     { "password" = "password" } }
  32   { "pattern" = "[mail.isp.example]:587"
  33     { "username" = "username" }
  34     { "password" = "password" } }
  35   { "pattern" = "mail.isp.example"
  36     { "username" = "username" }
  37     { "password" = "password" } }
  38   { "pattern" = "user@mail.isp.example"
  39     { "username" = "username" }
  40     { "password" } }
  41   { "pattern" = "mail.isp.example"
  42     { "username" = "username2" }
  43     { "password" = "password2" } }