lenses/tests/test_rabbitmq.aug

   1 (*
   2 Module: Test_Rabbitmq
   3   Provides unit tests and examples for the <Rabbitmq> lens.
   4 *)
   5 module Test_Rabbitmq =
   6
   7 (* Test: Rabbitmq.listeners *)
   8 test Rabbitmq.listeners get "{ssl_listeners, [5671, {\"127.0.0.1\", 5672}]}" =
   9   { "ssl_listeners"
  10     { "value" = "5671" }
  11     { "tuple"
  12       { "value" = "127.0.0.1" }
  13       { "value" = "5672" } } }
  14
  15 (* Test: Rabbitmq.ssl_options *)
  16 test Rabbitmq.ssl_options get "{ssl_options, [
  17   {cacertfile,\"/path/to/testca/cacert.pem\"},
  18   {certfile,\"/path/to/server/cert.pem\"},
  19   {keyfile,\"/path/to/server/key.pem\"},
  20   {verify,verify_peer},
  21   {fail_if_no_peer_cert,false}]}" =
  22   { "ssl_options"
  23     { "cacertfile" = "/path/to/testca/cacert.pem" }
  24     { "certfile" = "/path/to/server/cert.pem" }
  25     { "keyfile" = "/path/to/server/key.pem" }
  26     { "verify" = "verify_peer" }
  27     { "fail_if_no_peer_cert" = "false" } }
  28
  29 (* Test: Rabbitmq.disk_free_limit *)
  30 test Rabbitmq.disk_free_limit get "{disk_free_limit, 1000000000}" =
  31   { "disk_free_limit" = "1000000000" }
  32
  33 (* Test: Rabbitmq.disk_free_limit *)
  34 test Rabbitmq.disk_free_limit get "{disk_free_limit, {mem_relative, 1.0}}" =
  35   { "disk_free_limit"
  36     { "tuple"
  37       { "value" = "mem_relative" }
  38       { "value" = "1.0" } } }
  39
  40 (* Test: Rabbitmq.log_levels *)
  41 test Rabbitmq.log_levels get "{log_levels, [{connection, info}]}" =
  42   { "log_levels"
  43     { "tuple"
  44       { "value" = "connection" }
  45       { "value" = "info" } } }
  46
  47 (* Test: Rabbitmq.cluster_nodes *)
  48 test Rabbitmq.cluster_nodes get "{cluster_nodes, {['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], disc}}" =
  49   { "cluster_nodes"
  50     { "tuple"
  51       { "value"
  52         { "value" = "rabbit@rabbit1" }
  53         { "value" = "rabbit@rabbit2" }
  54         { "value" = "rabbit@rabbit3" } }
  55       { "value" = "disc" } } }
  56
  57 (* Test: Rabbitmq.cluster_nodes
  58      Apparently, tuples are not mandatory *)
  59 test Rabbitmq.cluster_nodes get "{cluster_nodes, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3']}" =
  60   { "cluster_nodes"
  61      { "value" = "rabbit@rabbit1" }
  62      { "value" = "rabbit@rabbit2" }
  63      { "value" = "rabbit@rabbit3" } }
  64
  65 (* Test: Rabbitmq.lns
  66      Top-level test *)
  67 test Rabbitmq.lns get "
  68 % A standard configuration
  69 [
  70   {rabbit, [
  71      {ssl_listeners, [5671]},
  72      {ssl_options, [{cacertfile,\"/path/to/testca/cacert.pem\"},
  73                     {certfile,\"/path/to/server/cert.pem\"},
  74                     {keyfile,\"/path/to/server/key.pem\"},
  75                     {verify,verify_peer},
  76                     {fail_if_no_peer_cert,false}]}
  77    ]}
  78 ].
  79 % EOF\n" =
  80   { }
  81   { "#comment" = "A standard configuration" }
  82   { "rabbit"
  83     { "ssl_listeners"
  84       { "value" = "5671" } }
  85     { "ssl_options"
  86       { "cacertfile" = "/path/to/testca/cacert.pem" }
  87       { "certfile" = "/path/to/server/cert.pem" }
  88       { "keyfile" = "/path/to/server/key.pem" }
  89       { "verify" = "verify_peer" }
  90       { "fail_if_no_peer_cert" = "false" } } }
  91   { "#comment" = "EOF" }
  92