lenses/tests/test_xinetd.aug

   1 module Test_xinetd =
   2
   3 let eol_ws = "defaults \t \n{\n  enabled = cvs echo  \n}\n\n"
   4
   5 let cvs = "# default: off
   6 # description: The CVS service can record the history of your source
   7 #              files. CVS stores all the versions of a file in a single
   8 #              file in a clever way that only stores the differences
   9 #              between versions.
  10 service cvspserver
  11 {
  12         disable                 = yes
  13         port                    = 2401
  14         socket_type             = stream
  15         protocol                = tcp
  16         wait                    = no
  17         user                    = root
  18         passenv                 = PATH
  19         server                  = /usr/bin/cvs
  20         env                    -= HOME=/var/cvs
  21         server_args             = -f --allow-root=/var/cvs pserver
  22 #       bind                    = 127.0.0.1
  23         log_on_failure         += HOST
  24         FLAGS                   = IPv6 IPv4
  25 }
  26 "
  27
  28 let lst_add = "service svc_add
  29 {
  30    log_on_failure += HOST
  31 }
  32 "
  33
  34 test Xinetd.lns get eol_ws =
  35   { "defaults" { "enabled"
  36                  { "value" = "cvs" }
  37                  { "value" = "echo" } } }
  38   {}
  39
  40 test Xinetd.lns put eol_ws after rm "/defaults/enabled/value[last()]" =
  41   "defaults \t \n{\n  enabled = cvs  \n}\n\n"
  42
  43 test Xinetd.lns get cvs =
  44   { "#comment" = "default: off" }
  45   { "#comment" = "description: The CVS service can record the history of your source" }
  46   { "#comment" = "files. CVS stores all the versions of a file in a single" }
  47   { "#comment" = "file in a clever way that only stores the differences" }
  48   { "#comment" = "between versions." }
  49   { "service" = "cvspserver"
  50       { "disable" = "yes" }
  51       { "port" = "2401" }
  52       { "socket_type" = "stream" }
  53       { "protocol" = "tcp" }
  54       { "wait" = "no" }
  55       { "user" = "root" }
  56       { "passenv" { "value" = "PATH" } }
  57       { "server" = "/usr/bin/cvs" }
  58       { "env" { "del" } { "value" = "HOME=/var/cvs" } }
  59       { "server_args"
  60           { "value" = "-f" }
  61           { "value" = "--allow-root=/var/cvs" }
  62           { "value" = "pserver" } }
  63       { "#comment" = "bind                    = 127.0.0.1" }
  64       { "log_on_failure" { "add" } { "value" = "HOST" } }
  65       { "FLAGS"
  66           { "value" = "IPv6" }
  67           { "value" = "IPv4" } } }
  68
  69 (* Switch the '+=' to a simple '=' *)
  70 test Xinetd.lns put lst_add after rm "/service/log_on_failure/add" =
  71   "service svc_add\n{\n   log_on_failure = HOST\n}\n"
  72
  73 test Xinetd.lns put "" after
  74   set "/service" "svc";
  75   set "/service/instances" "UNLIMITED" = "service svc
  76 {
  77 \tinstances = UNLIMITED
  78 }
  79 "
  80
  81 (* Support missing values in lists *)
  82 test Xinetd.lns get "service check_mk\n{\n  log_on_success =\n  server_args=\n}\n" =
  83   { "service" = "check_mk"
  84     { "log_on_success" }
  85     { "server_args" }
  86   }
  87
  88 (* Local Variables: *)
  89 (* mode: caml       *)
  90 (* End:             *)