167 lines
4.7 KiB
Plaintext
167 lines
4.7 KiB
Plaintext
(*
|
|
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" } }
|