lenses/tests/test_inetd.aug

   1 module Test_inetd =
   2
   3         (* The standard "parse a bucket of text" test *)
   4         let conf = "# Blah di blah comment
   5
   6 simplesrv       stream  tcp     nowait  fred    /usr/bin/simplesrv
   7 arguserve       dgram   udp     wait    mary    /usr/bin/usenet         foo bar wombat
   8
   9 1234            stream  tcp     nowait  fred    /usr/bin/numbersrv
  10
  11 127.0.0.1:addrsrv       stream  tcp     nowait  fred    /usr/bin/addrsrv
  12 127.0.0.1,10.0.0.1:multiaddrsrv stream tcp nowait fred /usr/bin/multiaddrsrv
  13 faff.fred.com:
  14 127.0.0.1,faff.fred.com:
  15 *:
  16 [::1]:addrsrv   stream  tcp     nowait  fred    /usr/bin/addrsrv
  17
  18 sndbufsrv       stream  tcp,sndbuf=12k  nowait  fred    /usr/bin/sndbufsrv
  19 rcvbufsrv       stream  tcp,rcvbuf=24k  nowait  fred    /usr/bin/rcvbufsrv
  20 allbufsrv       stream  tcp,sndbuf=1m,rcvbuf=24k        nowait  fred /usr/bin/allbufsrv
  21
  22 dotgroupsrv     stream  tcp     nowait  fred.wilma      /usr/bin/dotgroupsrv
  23 colongroupsrv   stream  tcp     nowait  fred:wilma      /usr/bin/colongroupsrv
  24
  25 maxsrv          stream  tcp     nowait.20       fred    /usr/bin/maxsrv
  26
  27 dummy/1       tli     rpc/circuit_v,udp       wait    root    /tmp/test_svc   test_svc
  28 "
  29
  30         test Inetd.lns get conf =
  31                 { "#comment" = "Blah di blah comment" }
  32                 {}
  33                 { "service" = "simplesrv"
  34                         { "socket" = "stream" }
  35                         { "protocol" = "tcp" }
  36                         { "wait" = "nowait" }
  37                         { "user" = "fred" }
  38                         { "command" = "/usr/bin/simplesrv" }
  39                 }
  40                 { "service" = "arguserve"
  41                         { "socket" = "dgram" }
  42                         { "protocol" = "udp" }
  43                         { "wait" = "wait" }
  44                         { "user" = "mary" }
  45                         { "command" = "/usr/bin/usenet" }
  46                         { "arguments"
  47                                 { "1" = "foo" }
  48                                 { "2" = "bar" }
  49                                 { "3" = "wombat" }
  50                         }
  51                 }
  52                 {}
  53                 { "service" = "1234"
  54                         { "socket" = "stream" }
  55                         { "protocol" = "tcp" }
  56                         { "wait" = "nowait" }
  57                         { "user" = "fred" }
  58                         { "command" = "/usr/bin/numbersrv" }
  59                 }
  60                 {}
  61                 { "service" = "addrsrv"
  62                         { "address"
  63                                 { "1" = "127.0.0.1" }
  64                         }
  65                         { "socket" = "stream" }
  66                         { "protocol" = "tcp" }
  67                         { "wait" = "nowait" }
  68                         { "user" = "fred" }
  69                         { "command" = "/usr/bin/addrsrv" }
  70                 }
  71                 { "service" = "multiaddrsrv"
  72                         { "address"
  73                                 { "1" = "127.0.0.1" }
  74                                 { "2" = "10.0.0.1" }
  75                         }
  76                         { "socket" = "stream" }
  77                         { "protocol" = "tcp" }
  78                         { "wait" = "nowait" }
  79                         { "user" = "fred" }
  80                         { "command" = "/usr/bin/multiaddrsrv" }
  81                 }
  82                 { "address"
  83                         { "1" = "faff.fred.com" }
  84                 }
  85                 { "address"
  86                         { "1" = "127.0.0.1" }
  87                         { "2" = "faff.fred.com" }
  88                 }
  89                 { "address"
  90                         { "1" = "*" }
  91                 }
  92                 { "service" = "addrsrv"
  93                         { "address"
  94                                 { "1" = "[::1]" }
  95                         }
  96                         { "socket" = "stream" }
  97                         { "protocol" = "tcp" }
  98                         { "wait" = "nowait" }
  99                         { "user" = "fred" }
 100                         { "command" = "/usr/bin/addrsrv" }
 101                 }
 102                 {}
 103                 { "service" = "sndbufsrv"
 104                         { "socket" = "stream" }
 105                         { "protocol" = "tcp" }
 106                         { "sndbuf" = "12k" }
 107                         { "wait" = "nowait" }
 108                         { "user" = "fred" }
 109                         { "command" = "/usr/bin/sndbufsrv" }
 110                 }
 111                 { "service" = "rcvbufsrv"
 112                         { "socket" = "stream" }
 113                         { "protocol" = "tcp" }
 114                         { "rcvbuf" = "24k" }
 115                         { "wait" = "nowait" }
 116                         { "user" = "fred" }
 117                         { "command" = "/usr/bin/rcvbufsrv" }
 118                 }
 119                 { "service" = "allbufsrv"
 120                         { "socket" = "stream" }
 121                         { "protocol" = "tcp" }
 122                         { "sndbuf" = "1m" }
 123                         { "rcvbuf" = "24k" }
 124                         { "wait" = "nowait" }
 125                         { "user" = "fred" }
 126                         { "command" = "/usr/bin/allbufsrv" }
 127                 }
 128                 {}
 129                 { "service" = "dotgroupsrv"
 130                         { "socket" = "stream" }
 131                         { "protocol" = "tcp" }
 132                         { "wait" = "nowait" }
 133                         { "user" = "fred" }
 134                         { "group" = "wilma" }
 135                         { "command" = "/usr/bin/dotgroupsrv" }
 136                 }
 137                 { "service" = "colongroupsrv"
 138                         { "socket" = "stream" }
 139                         { "protocol" = "tcp" }
 140                         { "wait" = "nowait" }
 141                         { "user" = "fred" }
 142                         { "group" = "wilma" }
 143                         { "command" = "/usr/bin/colongroupsrv" }
 144                 }
 145                 {}
 146                 { "service" = "maxsrv"
 147                         { "socket" = "stream" }
 148                         { "protocol" = "tcp" }
 149                         { "wait" = "nowait" }
 150                         { "max" = "20" }
 151                         { "user" = "fred" }
 152                         { "command" = "/usr/bin/maxsrv" }
 153                 }
 154                 {}
 155                 { "rpc_service" = "dummy"
 156                         { "version" = "1" }
 157                         { "endpoint-type" = "tli" }
 158                         { "protocol" = "circuit_v" }
 159                         { "protocol" = "udp" }
 160                         { "wait" = "wait" }
 161                         { "user" = "root" }
 162                         { "command" = "/tmp/test_svc" }
 163                         { "arguments"
 164                            { "1" = "test_svc" } }
 165                 }
 166
 167
 168 (**************************************************************************)
 169
 170         (* Test new file creation *)
 171
 172         test Inetd.lns put "" after
 173                 set "/service" "faffsrv";
 174                 set "/service/socket" "stream";
 175                 set "/service/protocol" "tcp";
 176                 set "/service/wait" "nowait";
 177                 set "/service/user" "george";
 178                 set "/service/command" "/sbin/faffsrv"
 179         = "faffsrv      stream  tcp     nowait  george  /sbin/faffsrv\n"
 180
 181