lenses/tests/test_fuse.aug

   1 (*
   2 Module: Test_Fuse
   3   Provides unit tests and examples for the <Fuse> lens.
   4 *)
   5
   6 module Test_Fuse =
   7
   8 (* Variable: conf *)
   9 let conf = "# Set the maximum number of FUSE mounts allowed to non-root users.
  10 mount_max = 1000
  11
  12 # Allow non-root users to specify the 'allow_other' or 'allow_root'
  13 user_allow_other
  14 "
  15
  16 (* Test: Fuse.lns *)
  17 test Fuse.lns get conf =
  18    { "#comment" = "Set the maximum number of FUSE mounts allowed to non-root users." }
  19    { "mount_max" = "1000" }
  20    {  }
  21    { "#comment" = "Allow non-root users to specify the 'allow_other' or 'allow_root'" }
  22    { "user_allow_other" }