Server IP : 85.214.239.14 / Your IP : 3.141.47.139 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 : /proc/3/root/usr/share/augeas/lenses/dist/tests/ |
Upload File : |
(* Module: Test_Reprepro_Uploaders Provides unit tests and examples for the <Reprepro_Uploaders> lens. *) module Test_Reprepro_Uploaders = (* Test: Reprepro_Uploaders.entry A star condition gets mapped as direct value of the "allow" node. *) test Reprepro_Uploaders.entry get "allow * by anybody\n" = { "allow" = "*" { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry For simple keys, the "by" node gets the value "key" and the key ID gets mapped in a "key" subnode. *) test Reprepro_Uploaders.entry get "allow * by key ABCD1234\n" = { "allow" = "*" { "by" = "key" { "key" = "ABCD1234" } } } (* Test: Reprepro_Uploaders.entry Conditions are mapped inside a tree containing at least an "and" node and an "or" subnode. The value of each "or" subnode is the type of check (e.g. "source"), and this node contains "or" subnodes with the value(s) allowed for the check (e.g. "bash"). *) test Reprepro_Uploaders.entry get "allow source 'bash' by anybody\n" = { "allow" { "and" { "or" = "source" { "or" = "bash" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Check the field distribution *) test Reprepro_Uploaders.entry get "allow distribution 'sid' by anybody\n" = { "allow" { "and" { "or" = "distribution" { "or" = "sid" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Some checks use the "contain" keyword to loosen the condition. In that case, a "contain" subnode is added. Be sure to check for it to know how the condition has to be checked. *) test Reprepro_Uploaders.entry get "allow source 'bash' and binaries contain 'bash-doc' by anybody\n" = { "allow" { "and" { "or" = "source" { "or" = "bash" } } } { "and" { "or" = "binaries" { "contain" } { "or" = "bash-doc" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Some checks support multiple values, separated by '|'. In this case, each value gets added to an "or" subnode. *) test Reprepro_Uploaders.entry get "allow sections 'main'|'restricted' and source 'bash' or binaries contain 'bash-doc' by anybody\n" = { "allow" { "and" { "or" = "sections" { "or" = "main" } { "or" = "restricted" } } } { "and" { "or" = "source" { "or" = "bash" } } { "or" = "binaries" { "contain" } { "or" = "bash-doc" } } } { "by" = "anybody" } } (* Test: Reprepro_Uploaders.entry Negated conditions are mapped with a "not" subnode. *) test Reprepro_Uploaders.entry get "allow not source 'bash' by anybody\n" = { "allow" { "and" { "or" = "source" { "not" } { "or" = "bash" } } } { "by" = "anybody" } } (* Variable: conf A full configuration *) let conf = "# ftpmaster allow * by key 74BF771E allow sections 'desktop/*' by anybody allow sections 'gforge/*' and binaries contain 'bzr' or not source '*melanie*'|'katya' by any key " (* Test: Reprepro_Uploaders.lns Testing the full <conf> against <Reprepro_Uploaders.lns> *) test Reprepro_Uploaders.lns get conf = { "#comment" = "ftpmaster" } { "allow" = "*" { "by" = "key" { "key" = "74BF771E" } } } { } { "allow" { "and" { "or" = "sections" { "or" = "desktop/*" } } } { "by" = "anybody" } } { "allow" { "and" { "or" = "sections" { "or" = "gforge/*" } } } { "and" { "or" = "binaries" { "contain" } { "or" = "bzr" } } { "or" = "source" { "not" } { "or" = "*melanie*" } { "or" = "katya" } } } { "by" = "key" { "key" = "any" } } } (* Test: Reprepro_Uploaders.lns Support group conditions, GH #283 *) test Reprepro_Uploaders.lns get "allow sections 'desktop/*' by group groupname\n" = { "allow" { "and" { "or" = "sections" { "or" = "desktop/*" } } } { "by" = "group" { "group" = "groupname" } } } (* Test: Reprepro_Uploaders.lns Declare group condition, GH #283 *) test Reprepro_Uploaders.lns get "group groupname add key-id\n" = { "group" = "groupname" { "add" = "key-id" } } (* Test: Reprepro_Uploaders.lns Group inheritance, GH #283 *) test Reprepro_Uploaders.lns get "group groupname contains group2\n" = { "group" = "groupname" { "contains" = "group2" } } (* Test: Reprepro_Uploaders.lns Empty group, GH #283 *) test Reprepro_Uploaders.lns get "group groupname empty\n" = { "group" = "groupname" { "empty" } } (* Test: Reprepro_Uploaders.lns Unused group, GH #283 *) test Reprepro_Uploaders.lns get "group groupname unused\n" = { "group" = "groupname" { "unused" } }