09381cccff
* src/libexpr/expr-to-xml.cc (nix::showAttrs): Add `location' parameter. Provide location XML attributes when it's true. Update callers. (nix::printTermAsXML): Likewise. * src/libexpr/expr-to-xml.hh (nix::printTermAsXML): Update prototype; have `location' default to `false'. * src/nix-instantiate/nix-instantiate.cc (printResult, processExpr): Add `location' parameter; update callers. (run): Add support for `--no-location'. * src/nix-instantiate/help.txt: Update accordingly. * tests/lang.sh: Invoke `nix-instantiate' with `--no-location' for the XML tests. * tests/lang/eval-okay-toxml.exp, tests/lang/eval-okay-to-xml.nix: New files.
69 lines
1.8 KiB
Bash
69 lines
1.8 KiB
Bash
source common.sh
|
|
|
|
export TEST_VAR=foo # for eval-okay-getenv.nix
|
|
|
|
fail=0
|
|
|
|
for i in lang/parse-fail-*.nix; do
|
|
echo "parsing $i (should fail)";
|
|
i=$(basename $i .nix)
|
|
if $nixinstantiate --parse-only - < lang/$i.nix; then
|
|
echo "FAIL: $i shouldn't parse"
|
|
fail=1
|
|
fi
|
|
done
|
|
|
|
for i in lang/parse-okay-*.nix; do
|
|
echo "parsing $i (should succeed)";
|
|
i=$(basename $i .nix)
|
|
if ! $nixinstantiate --parse-only - < lang/$i.nix > lang/$i.ast; then
|
|
echo "FAIL: $i should parse"
|
|
fail=1
|
|
fi
|
|
if ! $aterm_bin/atdiff lang/$i.ast lang/$i.exp; then
|
|
echo "FAIL: parse tree of $i not as expected"
|
|
fail=1
|
|
fi
|
|
done
|
|
|
|
for i in lang/eval-fail-*.nix; do
|
|
echo "evaluating $i (should fail)";
|
|
i=$(basename $i .nix)
|
|
if $nixinstantiate --eval-only lang/$i.nix; then
|
|
echo "FAIL: $i shouldn't evaluate"
|
|
fail=1
|
|
fi
|
|
done
|
|
|
|
for i in lang/eval-okay-*.nix; do
|
|
echo "evaluating $i (should succeed)";
|
|
i=$(basename $i .nix)
|
|
|
|
if test -e lang/$i.exp; then
|
|
flags=
|
|
if test -e lang/$i.flags; then
|
|
flags=$(cat lang/$i.flags)
|
|
fi
|
|
if ! $nixinstantiate $flags --eval-only lang/$i.nix > lang/$i.out; then
|
|
echo "FAIL: $i should evaluate"
|
|
fail=1
|
|
elif ! $aterm_bin/atdiff lang/$i.out lang/$i.exp; then
|
|
echo "FAIL: evaluation result of $i not as expected"
|
|
fail=1
|
|
fi
|
|
fi
|
|
|
|
if test -e lang/$i.exp.xml; then
|
|
if ! $nixinstantiate --eval-only --xml --no-location --strict \
|
|
lang/$i.nix > lang/$i.out.xml; then
|
|
echo "FAIL: $i should evaluate"
|
|
fail=1
|
|
elif ! cmp -s lang/$i.out.xml lang/$i.exp.xml; then
|
|
echo "FAIL: XML evaluation result of $i not as expected"
|
|
fail=1
|
|
fi
|
|
fi
|
|
done
|
|
|
|
exit $fail
|