Luke Granger-Brown
57725ef3ec
git-subtree-dir: third_party/nixpkgs git-subtree-split: 76612b17c0ce71689921ca12d9ffdc9c23ce40b2
62 lines
1.2 KiB
Nix
62 lines
1.2 KiB
Nix
with builtins;
|
|
let
|
|
/*
|
|
underTest = {
|
|
x = {
|
|
a = 1;
|
|
b = "2";
|
|
};
|
|
};
|
|
|
|
tests = [
|
|
(root: false)
|
|
{
|
|
x = [
|
|
(set: true)
|
|
{
|
|
a = (a: a > 1);
|
|
b = (b: b == "3");
|
|
}
|
|
];
|
|
}
|
|
];
|
|
|
|
results = run "Examples" underTest tests;
|
|
*/
|
|
|
|
passed = desc: {
|
|
result = "pass";
|
|
description = desc;
|
|
};
|
|
|
|
failed = desc: {
|
|
result = "failed";
|
|
description = desc;
|
|
};
|
|
|
|
prefixName = name: res: {
|
|
inherit (res) result;
|
|
description = "${name}: ${res.description}";
|
|
};
|
|
|
|
run = name: under: tests: if isList tests then
|
|
(concatLists (map (run name under) tests))
|
|
else if isAttrs tests then
|
|
(concatLists (map (
|
|
subName: run (name + "." + subName) (if hasAttr subName under then getAttr subName under else "<MISSING!>") (getAttr subName tests)
|
|
) (attrNames tests)))
|
|
else if isFunction tests then
|
|
let
|
|
res = tests under;
|
|
in
|
|
if isBool res then
|
|
[
|
|
(prefixName name (if tests under then passed "passed" else failed "failed"))
|
|
]
|
|
else
|
|
[ (prefixName name res) ]
|
|
else [
|
|
failed (name ": not a function, list or set")
|
|
];
|
|
in
|
|
{ inherit run passed failed; }
|