| Server IP : 85.214.239.14 / Your IP : 18.221.161.43 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/augeas/lenses/dist/tests/ |
Upload File : |
(* Tests for the Ethers module *)
module Test_ethers =
(*
let empty_entries = "# see man ethers for syntax\n"
test Ethers.record get empty_entries =
{ "#comment" = "see man ethers for syntax" }
*)
let three_entries = "54:52:00:01:00:01 192.168.1.1
# \tcomment\t
54:52:00:01:00:02 foo.example.com
00:16:3e:01:fe:03 bar
"
test Ethers.lns get three_entries =
{ "1" { "mac" = "54:52:00:01:00:01" }
{ "ip" = "192.168.1.1" } }
{ "#comment" = "comment" }
{ "2" { "mac" = "54:52:00:01:00:02" }
{ "ip" = "foo.example.com" } }
{ "3" { "mac" = "00:16:3e:01:fe:03" }
{ "ip" = "bar" } }
(* Deleting the 'ip' node violates the schema *)
test Ethers.lns put three_entries after
rm "/1/ip"
= *
test Ethers.lns put three_entries after
set "/2/ip" "192.168.1.2" ;
set "/3/ip" "baz"
= "54:52:00:01:00:01 192.168.1.1
# \tcomment\t
54:52:00:01:00:02 192.168.1.2
00:16:3e:01:fe:03 baz
"
test Ethers.lns put three_entries after
rm "/3"
= "54:52:00:01:00:01 192.168.1.1
# \tcomment\t
54:52:00:01:00:02 foo.example.com
"
(* Make sure blank and indented lines get through *)
test Ethers.lns get "54:52:00:01:00:01\tfoo \n \n\n
54:52:00:01:00:02 bar\n" =
{ "1" { "mac" = "54:52:00:01:00:01" }
{ "ip" = "foo" } }
{} {} {}
{ "2" { "mac" = "54:52:00:01:00:02" }
{ "ip" = "bar" } }
(* Local Variables: *)
(* mode: caml *)
(* End: *)