129 lines
4.1 KiB
Nix
129 lines
4.1 KiB
Nix
{ depot, lib, ... }:
|
||
|
||
let
|
||
inherit (depot.nix.runTestsuite)
|
||
runTestsuite
|
||
it
|
||
assertEq
|
||
assertThrows
|
||
;
|
||
|
||
tree-ex = depot.nix.readTree {
|
||
path = ./test-example;
|
||
args = { };
|
||
};
|
||
|
||
example = it "corresponds to the README example" [
|
||
(assertEq "third_party attrset"
|
||
(lib.isAttrs tree-ex.third_party
|
||
&& (! lib.isDerivation tree-ex.third_party))
|
||
true)
|
||
(assertEq "third_party attrset other attribute"
|
||
tree-ex.third_party.favouriteColour
|
||
"orange")
|
||
(assertEq "rustpkgs attrset aho-corasick"
|
||
tree-ex.third_party.rustpkgs.aho-corasick
|
||
"aho-corasick")
|
||
(assertEq "rustpkgs attrset serde"
|
||
tree-ex.third_party.rustpkgs.serde
|
||
"serde")
|
||
(assertEq "tools cheddear"
|
||
"cheddar"
|
||
tree-ex.tools.cheddar)
|
||
(assertEq "tools roquefort"
|
||
tree-ex.tools.roquefort
|
||
"roquefort")
|
||
];
|
||
|
||
tree-tl = depot.nix.readTree {
|
||
path = ./test-tree-traversal;
|
||
args = { };
|
||
};
|
||
|
||
traversal-logic = it "corresponds to the traversal logic in the README" [
|
||
(assertEq "skip subtree default.nix is read"
|
||
tree-tl.skip-subtree.but
|
||
"the default.nix is still read")
|
||
(assertEq "skip subtree a/default.nix is skipped"
|
||
(tree-tl.skip-subtree ? a)
|
||
false)
|
||
(assertEq "skip subtree b/c.nix is skipped"
|
||
(tree-tl.skip-subtree ? b)
|
||
false)
|
||
(assertEq "skip subtree a/default.nix would be read without .skip-subtree"
|
||
(tree-tl.no-skip-subtree.a)
|
||
"am I subtree yet?")
|
||
(assertEq "skip subtree b/c.nix would be read without .skip-subtree"
|
||
(tree-tl.no-skip-subtree.b.c)
|
||
"cool")
|
||
|
||
(assertEq "default.nix attrset is merged with siblings"
|
||
tree-tl.default-nix.no
|
||
"siblings should be read")
|
||
(assertEq "default.nix means sibling isn’t read"
|
||
(tree-tl.default-nix ? sibling)
|
||
false)
|
||
(assertEq "default.nix means subdirs are still read and merged into default.nix"
|
||
(tree-tl.default-nix.subdir.a)
|
||
"but I’m picked up")
|
||
|
||
(assertEq "default.nix can be not an attrset"
|
||
tree-tl.default-nix.no-merge
|
||
"I’m not merged with any children")
|
||
(assertEq "default.nix is not an attrset -> children are not merged"
|
||
(tree-tl.default-nix.no-merge ? subdir)
|
||
false)
|
||
|
||
(assertEq "default.nix can contain a derivation"
|
||
(lib.isDerivation tree-tl.default-nix.can-be-drv)
|
||
true)
|
||
(assertEq "Even if default.nix is a derivation, children are traversed and merged"
|
||
tree-tl.default-nix.can-be-drv.subdir.a
|
||
"Picked up through the drv")
|
||
(assertEq "default.nix drv is not changed by readTree"
|
||
tree-tl.default-nix.can-be-drv
|
||
(import ./test-tree-traversal/default-nix/can-be-drv/default.nix { }))
|
||
];
|
||
|
||
# these each call readTree themselves because the throws have to happen inside assertThrows
|
||
wrong = it "cannot read these files and will complain" [
|
||
(assertThrows "this file is not a function"
|
||
(depot.nix.readTree {
|
||
path = ./test-wrong-not-a-function;
|
||
args = { };
|
||
}).not-a-function)
|
||
# can’t test for that, assertThrows can’t catch this error
|
||
# (assertThrows "this file is a function but doesn’t have dots"
|
||
# (depot.nix.readTree {} ./test-wrong-no-dots).no-dots-in-function)
|
||
];
|
||
|
||
read-markers = depot.nix.readTree {
|
||
path = ./test-marker;
|
||
args = { };
|
||
};
|
||
|
||
assertMarkerByPath = path:
|
||
assertEq "${lib.concatStringsSep "." path} is marked correctly"
|
||
(lib.getAttrFromPath path read-markers).__readTree
|
||
path;
|
||
|
||
markers = it "marks nodes correctly" [
|
||
(assertMarkerByPath [ "directory-marked" ])
|
||
(assertMarkerByPath [ "directory-marked" "nested" ])
|
||
(assertMarkerByPath [ "file-children" "one" ])
|
||
(assertMarkerByPath [ "file-children" "two" ])
|
||
(assertEq "nix file children are marked correctly"
|
||
read-markers.file-children.__readTreeChildren [ "one" "two" ])
|
||
(assertEq "directory children are marked correctly"
|
||
read-markers.directory-marked.__readTreeChildren [ "nested" ])
|
||
(assertEq "absence of children is marked"
|
||
read-markers.directory-marked.nested.__readTreeChildren [ ])
|
||
];
|
||
|
||
in
|
||
runTestsuite "readTree" [
|
||
example
|
||
traversal-logic
|
||
wrong
|
||
markers
|
||
]
|