From 92efb5d0d7ba0c2b49cf189d5055bc0d9b09994c Mon Sep 17 00:00:00 2001 From: Tavian Barnes Date: Sat, 31 Oct 2009 14:05:02 -0400 Subject: Implement dmnsn_print_astree_sexpr(). --- tests/dimension/box.sh | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') diff --git a/tests/dimension/box.sh b/tests/dimension/box.sh index 244b6fa..7a9f754 100755 --- a/tests/dimension/box.sh +++ b/tests/dimension/box.sh @@ -19,4 +19,14 @@ # along with this program. If not, see . # ######################################################################### +box=$(${top_builddir}/dimension/dimension --tokenize --parse ${srcdir}/box.pov) +box_exp='(box { < - (float "0.125") , - (integer "1") , - (integer "1") > , < (float "0.125") , (integer "1") , (integer "1") > } box { < - (integer "1") , - (integer "1") , - (float "0.125") > , < (integer "1") , (integer "1") , (float "0.125") > }) +((box (vector (float -0.125) (float -1) (float -1)) (vector (float 0.125) (float 1) (float 1))) (box (vector (float -1) (float -1) (float -0.125)) (vector (float 1) (float 1) (float 0.125))))' + +if [ "$box" != "$box_exp" ]; then + echo "box.pov parsed as \"$box\"" >&2 + echo " -- expected \"$box_exp\"" >&2 + exit 1 +fi + ${top_builddir}/dimension/dimension -o box.png ${srcdir}/box.pov -- cgit v1.2.3