mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Urgh (see NIX-56).

Browse source
This commit is contained in:
Eelco Dolstra 2006-08-22 09:34:38 +00:00
parent 1a9a1f2768
commit 93d9797eda
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
tests/lang.sh
View file

@ -36,13 +36,16 @@ done
for i in lang/eval-okay-*.nix; do for i in lang/eval-okay-*.nix; do
echo "evaluating $i (should succeed)"; echo "evaluating $i (should succeed)";
i=$(basename $i .nix) i=$(basename $i .nix)
if ! $nixinstantiate --eval-only - < lang/$i.nix > lang/$i.out; then
echo "FAIL: $i should evaluate" if test -e lang/$i.exp; then
fail=1 if ! $nixinstantiate --eval-only - < lang/$i.nix > lang/$i.out; then
fi echo "FAIL: $i should evaluate"
if ! $aterm_bin/atdiff lang/$i.out lang/$i.exp; then fail=1
echo "FAIL: evaluation result of $i not as expected" fi
fail=1 if ! $aterm_bin/atdiff lang/$i.out lang/$i.exp; then
echo "FAIL: evaluation result of $i not as expected"
fail=1
fi
fi fi
if test -e lang/$i.exp.xml; then if test -e lang/$i.exp.xml; then

1
tests/lang/eval-okay-xml.exp
View file

@ -1 +0,0 @@
Attrs([Bind("c",OpPlus(Str("foo"),Str("bar")),Pos("(string)",9,4)),Bind("b",Str("bar"),Pos("(string)",7,4)),Bind("x",Int(123),Pos("(string)",3,4)),Bind("f",Function([Formal("z",UnrestrictedValues,NoDefaultValue),Formal("x",ValidValues([Str("a"),Str("b"),OpPlus(Str("c"),Str("d"))]),NoDefaultValue),Formal("y",ValidValues([Var("true"),Var("false")]),NoDefaultValue)],If(Var("y"),Var("x"),Var("z")),Pos("(string)",11,8)),Pos("(string)",11,4)),Bind("a",Str("foo"),Pos("(string)",5,4))])