36 lines
758 B
Plaintext
36 lines
758 B
Plaintext
|
(*
|
||
|
|
Module: Test_ActiveMQ_Conf
|
||
|
|
Provides unit tests and examples for the <ActiveMQ_Conf> lens.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Test_ActiveMQ_Conf =
|
||
|
|
|
||
|
|
(* Variable: conf *)
|
||
|
|
let conf = "
|
||
|
|
ACTIVEMQ_HOME=/usr/share/activemq
|
||
|
|
ACTIVEMQ_BASE=${ACTIVEMQ_HOME}
|
||
|
|
"
|
||
|
|
|
||
|
|
(* Variable: new_conf *)
|
||
|
|
let new_conf = "
|
||
|
|
ACTIVEMQ_HOME=/usr/local/share/activemq
|
||
|
|
ACTIVEMQ_BASE=${ACTIVEMQ_HOME}
|
||
|
|
"
|
||
|
|
|
||
|
|
let lns = ActiveMQ_Conf.lns
|
||
|
|
|
||
|
|
(* Test: ActiveMQ_Conf.lns
|
||
|
|
* Get test against tree structure
|
||
|
|
*)
|
||
|
|
test lns get conf =
|
||
|
|
{ }
|
||
|
|
{ "ACTIVEMQ_HOME" = "/usr/share/activemq" }
|
||
|
|
{ "ACTIVEMQ_BASE" = "${ACTIVEMQ_HOME}" }
|
||
|
|
|
||
|
|
(* Test: ActiveMQ_Conf.lns
|
||
|
|
* Put test changing user to nobody
|
||
|
|
*)
|
||
|
|
test lns put conf after set "/ACTIVEMQ_HOME" "/usr/local/share/activemq" = new_conf
|
||
|
|
|
||
|
|
(* vim: set ts=4 expandtab sw=4: *)
|