| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/augeas/lenses/dist/tests/ |
Upload File : |
(* Tests for the Hosts module *)
module Test_hosts =
let two_entries = "127.0.0.1 foo foo.example.com
# \tcomment\t
192.168.0.1 pigiron.example.com pigiron pigiron.example
"
test Hosts.record get "127.0.0.1 foo\n" =
{ "1" { "ipaddr" = "127.0.0.1" }
{ "canonical" = "foo" } }
test Hosts.lns get two_entries =
{ "1" { "ipaddr" = "127.0.0.1" }
{ "canonical" = "foo" }
{ "alias" = "foo.example.com" }
}
{ "#comment" = "comment" }
{ "2" { "ipaddr" = "192.168.0.1" }
{ "canonical" = "pigiron.example.com" }
{ "alias" = "pigiron" }
{ "alias" = "pigiron.example" } }
test Hosts.record put "127.0.0.1 foo\n" after
set "/1/canonical" "bar"
= "127.0.0.1 bar\n"
test Hosts.lns put two_entries after
set "/2/alias[10]" "piggy" ;
rm "/1/alias[1]" ;
rm "/2/alias[2]"
= "127.0.0.1 foo
# \tcomment\t
192.168.0.1 pigiron.example.com pigiron piggy
"
(* Deleting the 'canonical' node violates the schema; each host entry *)
(* must have one *)
test Hosts.lns put two_entries after
rm "/1/canonical"
= *
(* Make sure blank and indented lines get through *)
test Hosts.lns get " \t 127.0.0.1\tlocalhost \n \n\n
127.0.1.1\tetch.example.com\tetch\n" =
{ "1" { "ipaddr" = "127.0.0.1" }
{ "canonical" = "localhost" } }
{} {} {}
{ "2" { "ipaddr" = "127.0.1.1" }
{ "canonical" = "etch.example.com" }
{ "alias" = "etch" } }
(* Comment at the end of a line *)
test Hosts.lns get "127.0.0.1 localhost # must always be there \n" =
{ "1" { "ipaddr" = "127.0.0.1" }
{ "canonical" = "localhost" }
{ "#comment" = "must always be there" } }
(* Local Variables: *)
(* mode: caml *)
(* End: *)