Sharp.Augeas/Sharp.Augeas.Test/lens/tests/test_activemq_conf.aug

36 lines
758 B
Plaintext
Raw Permalink Normal View History

2022-11-08 20:57:02 +03:00
(*
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: *)