2 Module: Test_JettyRealm
3 Provides unit tests and examples for the <JettyRealm> lens.
6 module Test_JettyRealm =
9 let conf = "### Comment
13 (* Variable: conf_norealm *)
14 let conf_norealm = "### Comment
18 (* Variable: new_conf *)
19 let new_conf = "### Comment
20 admin: password, admin
23 let lns = JettyRealm.lns
25 (* Test: JettyRealm.lns
26 * Get test against tree structure
29 { "#comment" = "## Comment" }
31 { "username" = "admin" }
32 { "password" = "admin" }
36 (* Test: JettyRealm.lns
37 * Get test against tree structure without a realm
39 test lns get conf_norealm =
40 { "#comment" = "## Comment" }
42 { "username" = "admin" }
43 { "password" = "admin" }
46 (* Test: JettyRealm.lns
47 * Put test changing password to password
49 test lns put conf after set "/user/password" "password" = new_conf
51 (* vim: set ts=4 expandtab sw=4: *)