picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add a new case_fixed_points test, based on an example from fixed-points.nix

Browse source
This commit is contained in:
John Wiegley 2018-04-17 18:11:30 -07:00
parent 03c86aa872
commit 4853381832
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
tests/EvalTests.hs
View file

@ -102,6 +102,30 @@ case_inherit_from_set_has_no_scope =
)).success
|]
case_fixed_points =
constantEqualText' [i|[
{
foobar = "foobar";
foo = "foo";
bar = "bar";
}
{
foobar = "foo + bar";
foo = "foo + ";
bar = "bar";
}
]|] [i|
let
fix = f: let x = f x; in x;
extends = f: rattrs: self:
let super = rattrs self; in super // f self super;
f = self: { foo = "foo";
bar = "bar";
foobar = self.foo + self.bar; };
g = self: super: { foo = super.foo + " + "; };
in [ (fix f) (fix (extends g f)) ]
|]
-----------------------
tests :: TestTree