(*
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: *)