89 lines
2.9 KiB
Plaintext
89 lines
2.9 KiB
Plaintext
|
(* 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" } }
|