Server IP : 85.214.239.14 / Your IP : 3.139.87.151 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 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" } }