module Test_inetd =

	(* The standard "parse a bucket of text" test *)
	let conf = "# Blah di blah comment

simplesrv	stream	tcp	nowait	fred	/usr/bin/simplesrv
arguserve	dgram	udp	wait	mary	/usr/bin/usenet		foo bar wombat

1234		stream	tcp	nowait	fred	/usr/bin/numbersrv

127.0.0.1:addrsrv	stream	tcp	nowait	fred	/usr/bin/addrsrv
127.0.0.1,10.0.0.1:multiaddrsrv	stream tcp nowait fred /usr/bin/multiaddrsrv
faff.fred.com:
127.0.0.1,faff.fred.com:
*:
[::1]:addrsrv	stream	tcp	nowait	fred	/usr/bin/addrsrv

sndbufsrv	stream	tcp,sndbuf=12k	nowait	fred	/usr/bin/sndbufsrv
rcvbufsrv	stream	tcp,rcvbuf=24k	nowait	fred	/usr/bin/rcvbufsrv
allbufsrv	stream	tcp,sndbuf=1m,rcvbuf=24k	nowait	fred /usr/bin/allbufsrv

dotgroupsrv	stream	tcp	nowait	fred.wilma	/usr/bin/dotgroupsrv
colongroupsrv	stream	tcp	nowait	fred:wilma	/usr/bin/colongroupsrv

maxsrv		stream	tcp	nowait.20	fred	/usr/bin/maxsrv

dummy/1       tli     rpc/circuit_v,udp       wait    root    /tmp/test_svc   test_svc
"

	test Inetd.lns get conf =
		{ "#comment" = "Blah di blah comment" }
		{}
		{ "service" = "simplesrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/simplesrv" }
		}
		{ "service" = "arguserve"
			{ "socket" = "dgram" }
			{ "protocol" = "udp" }
			{ "wait" = "wait" }
			{ "user" = "mary" }
			{ "command" = "/usr/bin/usenet" }
			{ "arguments"
				{ "1" = "foo" }
				{ "2" = "bar" }
				{ "3" = "wombat" }
			}
		}
		{}
		{ "service" = "1234"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/numbersrv" }
		}
		{}
		{ "service" = "addrsrv"
			{ "address"
				{ "1" = "127.0.0.1" }
			}
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/addrsrv" }
		}
		{ "service" = "multiaddrsrv"
			{ "address"
				{ "1" = "127.0.0.1" }
				{ "2" = "10.0.0.1" }
			}
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/multiaddrsrv" }
		}
		{ "address"
			{ "1" = "faff.fred.com" }
		}
		{ "address"
			{ "1" = "127.0.0.1" }
			{ "2" = "faff.fred.com" }
		}
		{ "address"
			{ "1" = "*" }
		}
		{ "service" = "addrsrv"
			{ "address"
				{ "1" = "[::1]" }
			}
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/addrsrv" }
		}
		{}
		{ "service" = "sndbufsrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "sndbuf" = "12k" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/sndbufsrv" }
		}
		{ "service" = "rcvbufsrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "rcvbuf" = "24k" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/rcvbufsrv" }
		}
		{ "service" = "allbufsrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "sndbuf" = "1m" }
			{ "rcvbuf" = "24k" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/allbufsrv" }
		}
		{}
		{ "service" = "dotgroupsrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "group" = "wilma" }
			{ "command" = "/usr/bin/dotgroupsrv" }
		}
		{ "service" = "colongroupsrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "user" = "fred" }
			{ "group" = "wilma" }
			{ "command" = "/usr/bin/colongroupsrv" }
		}
		{}
		{ "service" = "maxsrv"
			{ "socket" = "stream" }
			{ "protocol" = "tcp" }
			{ "wait" = "nowait" }
			{ "max" = "20" }
			{ "user" = "fred" }
			{ "command" = "/usr/bin/maxsrv" }
		}
                {}
                { "rpc_service" = "dummy"
                        { "version" = "1" }
                        { "endpoint-type" = "tli" }
                        { "protocol" = "circuit_v" }
                        { "protocol" = "udp" }
                        { "wait" = "wait" }
                        { "user" = "root" }
                        { "command" = "/tmp/test_svc" }
                        { "arguments"
                           { "1" = "test_svc" } }
                }


(**************************************************************************)

	(* Test new file creation *)

	test Inetd.lns put "" after
                set "/service" "faffsrv";
		set "/service/socket" "stream";
		set "/service/protocol" "tcp";
		set "/service/wait" "nowait";
		set "/service/user" "george";
		set "/service/command" "/sbin/faffsrv"
	= "faffsrv	stream	tcp	nowait	george	/sbin/faffsrv\n"