| Server IP : 127.0.0.2 / Your IP : 18.191.171.58 Web Server : Apache/2.4.18 (Ubuntu) System : User : www-data ( ) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : disk_free_space,disk_total_space,diskfreespace,dl,exec,fpaththru,getmyuid,getmypid,highlight_file,ignore_user_abord,leak,listen,link,opcache_get_configuration,opcache_get_status,passthru,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,php_uname,phpinfo,posix_ctermid,posix_getcwd,posix_getegid,posix_geteuid,posix_getgid,posix_getgrgid,posix_getgrnam,posix_getgroups,posix_getlogin,posix_getpgid,posix_getpgrp,posix_getpid,posix,_getppid,posix_getpwnam,posix_getpwuid,posix_getrlimit,posix_getsid,posix_getuid,posix_isatty,posix_kill,posix_mkfifo,posix_setegid,posix_seteuid,posix_setgid,posix_setpgid,posix_setsid,posix_setuid,posix_times,posix_ttyname,posix_uname,pclose,popen,proc_open,proc_close,proc_get_status,proc_nice,proc_terminate,shell_exec,source,show_source,system,virtual 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 Services module *)
module Test_services =
let example = "# a comment
tcpmux 1/tcp # TCP port service multiplexer
echo 7/udp
discard 9/tcp sink null
systat 11/tcp users
# another comment
whois++ 63/tcp
z39.50 210/tcp z3950 wais # NISO Z39.50 database \n"
test Services.lns get example =
{ "#comment" = "a comment" }
{ }
{ "service-name" = "tcpmux"
{ "port" = "1" }
{ "protocol" = "tcp" }
{ "#comment" = "TCP port service multiplexer" } }
{ "service-name" = "echo"
{ "port" = "7" }
{ "protocol" = "udp" } }
{ "service-name" = "discard"
{ "port" = "9" }
{ "protocol" = "tcp" }
{ "alias" = "sink" }
{ "alias" = "null" } }
{ "service-name" = "systat"
{ "port" = "11" }
{ "protocol" = "tcp" }
{ "alias" = "users" } }
{ "#comment" = "another comment" }
{ "service-name" = "whois++"
{ "port" = "63" }
{ "protocol" = "tcp" } }
{ "service-name" = "z39.50"
{ "port" = "210" }
{ "protocol" = "tcp" }
{ "alias" = "z3950" }
{ "alias" = "wais" }
{ "#comment" = "NISO Z39.50 database" } }
(* We completely suppress empty comments *)
test Services.record get "mtp\t\t1911/tcp\t\t\t#\n" =
{ "service-name" = "mtp"
{ "port" = "1911" }
{ "protocol" = "tcp" } }
(* And comments with one space in *)
test Services.lns get "mtp\t\t\t1911/tcp\t\t\t# \nfoo 123/tcp\n" =
{ "service-name" = "mtp"
{ "port" = "1911" }
{ "protocol" = "tcp" } }
{ "service-name" = "foo"
{ "port" = "123" }
{ "protocol" = "tcp" } }
test Services.lns get "sql*net\t\t66/tcp\t\t\t# Oracle SQL*NET\n" =
{ "service-name" = "sql*net"
{ "port" = "66" }
{ "protocol" = "tcp" }
{ "#comment" = "Oracle SQL*NET" } }
(* Fake service to check that we allow enoughspecial characters *)
test Services.lns get "special.*+-/chars\t0/proto\n" =
{ "service-name" = "special.*+-/chars"
{ "port" = "0" }
{ "protocol" = "proto" } }
test Services.lns put "tcpmux 1/tcp # some comment\n"
after rm "/service-name/#comment" = "tcpmux 1/tcp\n"
(* On AIX, port ranges are valid *)
test Services.lns get "x11 6000-6063/tcp # X Window System\n" =
{ "service-name" = "x11"
{ "start" = "6000" }
{ "end" = "6063" }
{ "protocol" = "tcp" }
{ "#comment" = "X Window System" } }
(* Colons permitted in service names, RHBZ#1121263 *)
test Services.lns get "SWRPC.ACCESS.BSS:BS_rmq 48102/tcp # SWIFTAlliance_SWRPC ACCESS\n" =
{ "service-name" = "SWRPC.ACCESS.BSS:BS_rmq"
{ "port" = "48102" }
{ "protocol" = "tcp" }
{ "#comment" = "SWIFTAlliance_SWRPC ACCESS" } }