46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
|
(*
|
||
|
|
Module: Test_Thttpd
|
||
|
|
Provides unit tests and examples for the <Thttpd> lens.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Test_Thttpd =
|
||
|
|
|
||
|
|
let conf = "# This file is for thttpd processes created by /etc/init.d/thttpd.
|
||
|
|
# Commentary is based closely on the thttpd(8) 2.25b manpage, by Jef Poskanzer.
|
||
|
|
|
||
|
|
# Specifies an alternate port number to listen on.
|
||
|
|
port=80
|
||
|
|
host=
|
||
|
|
|
||
|
|
dir=/var/www
|
||
|
|
chroot
|
||
|
|
novhost
|
||
|
|
|
||
|
|
# Specifies what user to switch to after initialization when started as root.
|
||
|
|
user=www-data # EOL comment
|
||
|
|
nosymlinks # EOL comment
|
||
|
|
"
|
||
|
|
|
||
|
|
test Thttpd.lns get conf =
|
||
|
|
{ "#comment" = "This file is for thttpd processes created by /etc/init.d/thttpd." }
|
||
|
|
{ "#comment" = "Commentary is based closely on the thttpd(8) 2.25b manpage, by Jef Poskanzer." }
|
||
|
|
{ }
|
||
|
|
{ "#comment" = "Specifies an alternate port number to listen on." }
|
||
|
|
{ "port" = "80" }
|
||
|
|
{ "host" = "" }
|
||
|
|
{ }
|
||
|
|
{ "dir" = "/var/www" }
|
||
|
|
{ "chroot" }
|
||
|
|
{ "novhost" }
|
||
|
|
{ }
|
||
|
|
{ "#comment" = "Specifies what user to switch to after initialization when started as root." }
|
||
|
|
{ "user" = "www-data"
|
||
|
|
{ "#comment" = "EOL comment" }
|
||
|
|
}
|
||
|
|
{ "nosymlinks"
|
||
|
|
{ "#comment" = "EOL comment" }
|
||
|
|
}
|
||
|
|
|
||
|
|
(* There must not be spaces around the '=' *)
|
||
|
|
test Thttpd.lns get "port = 80" = *
|