lenses/tests/test_jmxaccess.aug

   1 (*
   2 Module: Test_JMXAccess
   3   Provides unit tests and examples for the <JMXAccess> lens.
   4 *)
   5
   6 module Test_JMXAccess =
   7
   8 (* Variable: conf *)
   9 let conf = "# Comment
  10 admin readwrite
  11 "
  12
  13 (* Variable: new_conf *)
  14 let new_conf = "# Comment
  15 admin readonly
  16 "
  17
  18 let lns = JMXAccess.lns
  19
  20 (* Test: JMXAccess.lns
  21  * Get test against tree structure
  22 *)
  23 test lns get conf =
  24   { "#comment" = "Comment" }
  25   { "user"
  26     { "username" = "admin" }
  27     { "access" = "readwrite" }
  28   }
  29
  30 (* Test: JMXAccess.lns
  31  * Put test changing access to readonly
  32 *)
  33 test lns put conf after set "/user/access" "readonly" = new_conf
  34
  35 (* vim: set ts=4  expandtab  sw=4: *)