lenses/tests/test_stunnel.aug

   1 module Test_stunnel =
   2     let conf ="; Test stunnel-like config file
   3 ; Foo bar baz
   4 cert = /path/1
   5 key = /path/2
   6
   7 sslVersion = SSLv3
   8
   9 ; another comment
  10
  11 [service1]
  12 accept = 49999
  13 connect = servicedest:1234
  14
  15 [service2]
  16 accept = 1234
  17 "
  18
  19     test Stunnel.lns get conf =
  20         { ".anon"
  21             { "#comment" = "Test stunnel-like config file" }
  22             { "#comment" = "Foo bar baz" }
  23             { "cert" = "/path/1" }
  24             { "key" = "/path/2" }
  25             {}
  26             { "sslVersion" = "SSLv3" }
  27             {}
  28             { "#comment" = "another comment" }
  29             {}
  30         }
  31         { "service1"
  32             { "accept" = "49999" }
  33             { "connect" = "servicedest:1234" }
  34             {}
  35         }
  36         { "service2"
  37             { "accept" = "1234" }
  38         }