32 lines
636 B
Plaintext
32 lines
636 B
Plaintext
module Test_securetty =
|
|
|
|
(* basic test *)
|
|
let basic = "tty0\ntty1\ntty2\n"
|
|
|
|
(* declare the lens to test and the resulting tree *)
|
|
test Securetty.lns get basic =
|
|
{ "1" = "tty0" }
|
|
{ "2" = "tty1" }
|
|
{ "3" = "tty2" }
|
|
|
|
(* complete test *)
|
|
let complete = "# some comment
|
|
|
|
tty0
|
|
# X11 display
|
|
:0.0
|
|
|
|
console # allow root from console
|
|
"
|
|
|
|
(* declare the lens to test and the resulting tree *)
|
|
test Securetty.lns get complete =
|
|
{ "#comment" = "some comment" }
|
|
{}
|
|
{ "1" = "tty0" }
|
|
{ "#comment" = "X11 display" }
|
|
{ "2" = ":0.0" }
|
|
{}
|
|
{ "3" = "console"
|
|
{ "#comment" = "allow root from console" } }
|