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   {versions, ['tlsv1.2', 'tlsv1.1', 'tlsv1']},
  22   {fail_if_no_peer_cert,false}]}" =
  23   { "ssl_options"
  24     { "cacertfile" = "/path/to/testca/cacert.pem" }
  25     { "certfile" = "/path/to/server/cert.pem" }
  26     { "keyfile" = "/path/to/server/key.pem" }
  27     { "verify" = "verify_peer" }
  28     { "versions"
  29       { "value" = "tlsv1.2" }
  30       { "value" = "tlsv1.1" }
  31       { "value" = "tlsv1" } }
  32     { "fail_if_no_peer_cert" = "false" } }
  33
  34 (* Test: Rabbitmq.disk_free_limit *)
  35 test Rabbitmq.disk_free_limit get "{disk_free_limit, 1000000000}" =
  36   { "disk_free_limit" = "1000000000" }
  37
  38 (* Test: Rabbitmq.disk_free_limit *)
  39 test Rabbitmq.disk_free_limit get "{disk_free_limit, {mem_relative, 1.0}}" =
  40   { "disk_free_limit"
  41     { "tuple"
  42       { "value" = "mem_relative" }
  43       { "value" = "1.0" } } }
  44
  45 (* Test: Rabbitmq.log_levels *)
  46 test Rabbitmq.log_levels get "{log_levels, [{connection, info}]}" =
  47   { "log_levels"
  48     { "tuple"
  49       { "value" = "connection" }
  50       { "value" = "info" } } }
  51
  52 (* Test: Rabbitmq.cluster_nodes *)
  53 test Rabbitmq.cluster_nodes get "{cluster_nodes, {['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], disc}}" =
  54   { "cluster_nodes"
  55     { "tuple"
  56       { "value"
  57         { "value" = "rabbit@rabbit1" }
  58         { "value" = "rabbit@rabbit2" }
  59         { "value" = "rabbit@rabbit3" } }
  60       { "value" = "disc" } } }
  61
  62 (* Test: Rabbitmq.cluster_nodes
  63      Apparently, tuples are not mandatory *)
  64 test Rabbitmq.cluster_nodes get "{cluster_nodes, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3']}" =
  65   { "cluster_nodes"
  66      { "value" = "rabbit@rabbit1" }
  67      { "value" = "rabbit@rabbit2" }
  68      { "value" = "rabbit@rabbit3" } }
  69
  70 (* Test: Rabbitmq.cluster_partition_handling, single value *)
  71 test Rabbitmq.cluster_partition_handling get "{cluster_partition_handling, ignore}" =
  72   { "cluster_partition_handling" = "ignore" }
  73
  74 (* Test: Rabbitmq.cluster_partition_handling, tuple *)
  75 test Rabbitmq.cluster_partition_handling get "{cluster_partition_handling, {pause_if_all_down, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], autoheal}}" =
  76   { "cluster_partition_handling"
  77     { "tuple"
  78       { "value" = "pause_if_all_down" }
  79       { "value"
  80         { "value" = "rabbit@rabbit1" }
  81         { "value" = "rabbit@rabbit2" }
  82         { "value" = "rabbit@rabbit3" } }
  83       { "value" = "autoheal" } } }
  84
  85 (* Test: Rabbitmq.lns
  86      Top-level test *)
  87 test Rabbitmq.lns get "
  88 % A standard configuration
  89 [
  90   {rabbit, [
  91      {ssl_listeners, [5671]},
  92      {ssl_options, [{cacertfile,\"/path/to/testca/cacert.pem\"},
  93                     {certfile,\"/path/to/server/cert.pem\"},
  94                     {keyfile,\"/path/to/server/key.pem\"},
  95                     {verify,verify_peer},
  96                     {fail_if_no_peer_cert,false}]}
  97    ]}
  98 ].
  99 % EOF\n" =
 100   { }
 101   { "#comment" = "A standard configuration" }
 102   { "rabbit"
 103     { "ssl_listeners"
 104       { "value" = "5671" } }
 105     { "ssl_options"
 106       { "cacertfile" = "/path/to/testca/cacert.pem" }
 107       { "certfile" = "/path/to/server/cert.pem" }
 108       { "keyfile" = "/path/to/server/key.pem" }
 109       { "verify" = "verify_peer" }
 110       { "fail_if_no_peer_cert" = "false" } } }
 111   { "#comment" = "EOF" }
 112