(*
Module: Test_VMware_Config
  Provides unit tests and examples for the <VMware_Config> lens.
*)

module Test_VMware_Config =

(* Variable: conf *)
let conf = "libdir = \"/usr/lib/vmware\"
dhcpd.fullpath = \"/usr/bin/vmnet-dhcpd\"
authd.fullpath = \"/usr/sbin/vmware-authd\"
authd.client.port = \"902\"
loop.fullpath = \"/usr/bin/vmware-loop\"
vmware.fullpath = \"/usr/bin/vmware\"
control.fullpath = \"/usr/bin/vmware-cmd\"
serverd.fullpath = \"/usr/sbin/vmware-serverd\"
wizard.fullpath = \"/usr/bin/vmware-wizard\"
serverd.init.fullpath = \"/usr/lib/vmware/serverd/init.pl\"
serverd.vpxuser = \"vpxuser\"
serverd.snmpdconf.subagentenabled = \"TRUE\"
template.useFlatDisks = \"TRUE\"
autoStart.defaultStartDelay = \"60\"
autoStart.enabled = \"True\"
autoStart.defaultStopDelay = \"60\"
"

(* Test: VMware_Config.lns *)
test VMware_Config.lns get conf =
  { "libdir" = "/usr/lib/vmware" }
  { "dhcpd.fullpath" = "/usr/bin/vmnet-dhcpd" }
  { "authd.fullpath" = "/usr/sbin/vmware-authd" }
  { "authd.client.port" = "902" }
  { "loop.fullpath" = "/usr/bin/vmware-loop" }
  { "vmware.fullpath" = "/usr/bin/vmware" }
  { "control.fullpath" = "/usr/bin/vmware-cmd" }
  { "serverd.fullpath" = "/usr/sbin/vmware-serverd" }
  { "wizard.fullpath" = "/usr/bin/vmware-wizard" }
  { "serverd.init.fullpath" = "/usr/lib/vmware/serverd/init.pl" }
  { "serverd.vpxuser" = "vpxuser" }
  { "serverd.snmpdconf.subagentenabled" = "TRUE" }
  { "template.useFlatDisks" = "TRUE" }
  { "autoStart.defaultStartDelay" = "60" }
  { "autoStart.enabled" = "True" }
  { "autoStart.defaultStopDelay" = "60" }

(* Test: VMware_Config.lns
   Quotes are not mandatory *)
test VMware_Config.lns get "xkeymap.nokeycodeMap = true\n" =
  { "xkeymap.nokeycodeMap" = "true" }