Server IP : 85.214.239.14 / Your IP : 3.15.144.162 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 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: *)