lenses/tests/test_vmware_config.aug

   1 (*
   2 Module: Test_VMware_Config
   3   Provides unit tests and examples for the <VMware_Config> lens.
   4 *)
   5
   6 module Test_VMware_Config =
   7
   8 (* Variable: conf *)
   9 let conf = "libdir = \"/usr/lib/vmware\"
  10 dhcpd.fullpath = \"/usr/bin/vmnet-dhcpd\"
  11 authd.fullpath = \"/usr/sbin/vmware-authd\"
  12 authd.client.port = \"902\"
  13 loop.fullpath = \"/usr/bin/vmware-loop\"
  14 vmware.fullpath = \"/usr/bin/vmware\"
  15 control.fullpath = \"/usr/bin/vmware-cmd\"
  16 serverd.fullpath = \"/usr/sbin/vmware-serverd\"
  17 wizard.fullpath = \"/usr/bin/vmware-wizard\"
  18 serverd.init.fullpath = \"/usr/lib/vmware/serverd/init.pl\"
  19 serverd.vpxuser = \"vpxuser\"
  20 serverd.snmpdconf.subagentenabled = \"TRUE\"
  21 template.useFlatDisks = \"TRUE\"
  22 autoStart.defaultStartDelay = \"60\"
  23 autoStart.enabled = \"True\"
  24 autoStart.defaultStopDelay = \"60\"
  25 "
  26
  27 (* Test: VMware_Config.lns *)
  28 test VMware_Config.lns get conf =
  29   { "libdir" = "/usr/lib/vmware" }
  30   { "dhcpd.fullpath" = "/usr/bin/vmnet-dhcpd" }
  31   { "authd.fullpath" = "/usr/sbin/vmware-authd" }
  32   { "authd.client.port" = "902" }
  33   { "loop.fullpath" = "/usr/bin/vmware-loop" }
  34   { "vmware.fullpath" = "/usr/bin/vmware" }
  35   { "control.fullpath" = "/usr/bin/vmware-cmd" }
  36   { "serverd.fullpath" = "/usr/sbin/vmware-serverd" }
  37   { "wizard.fullpath" = "/usr/bin/vmware-wizard" }
  38   { "serverd.init.fullpath" = "/usr/lib/vmware/serverd/init.pl" }
  39   { "serverd.vpxuser" = "vpxuser" }
  40   { "serverd.snmpdconf.subagentenabled" = "TRUE" }
  41   { "template.useFlatDisks" = "TRUE" }
  42   { "autoStart.defaultStartDelay" = "60" }
  43   { "autoStart.enabled" = "True" }
  44   { "autoStart.defaultStopDelay" = "60" }
  45
  46 (* Test: VMware_Config.lns
  47    Quotes are not mandatory *)
  48 test VMware_Config.lns get "xkeymap.nokeycodeMap = true\n" =
  49   { "xkeymap.nokeycodeMap" = "true" }