From 7bbc14551b0513ec94bdac0eff0d64842fe55b2b Mon Sep 17 00:00:00 2001
From: Tavian Barnes <tavianator@gmail.com>
Date: Wed, 25 Nov 2009 02:04:15 -0500
Subject: Format S-expressions a bit nicer in test scripts.

---
 tests/dimension/demo.sh | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

(limited to 'tests/dimension/demo.sh')

diff --git a/tests/dimension/demo.sh b/tests/dimension/demo.sh
index da3548a..0e0303a 100755
--- a/tests/dimension/demo.sh
+++ b/tests/dimension/demo.sh
@@ -20,8 +20,28 @@
 #########################################################################
 
 demo=$(${top_builddir}/dimension/dimension --tokenize --parse ${srcdir}/demo.pov)
-demo_exp='(box { < - (integer "1") , - (integer "1") , - (integer "1") > , < (integer "1") , (integer "1") , (integer "1") > rotate < (integer "45") , (integer "0") , (integer "0") > } sphere { < (integer "0") , (integer "0") , (integer "0") > , (float "1.25") })
-((box (vector (integer -1) (integer -1) (integer -1) (integer 0) (integer 0)) (vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0)) (object-modifiers (rotate (vector (integer 45) (integer 0) (integer 0) (integer 0) (integer 0))))) (sphere (vector (integer 0) (integer 0) (integer 0) (integer 0) (integer 0)) (float 1.25) object-modifiers))'
+demo_exp="$(echo -n \
+'(box {
+    < - (integer "1") , - (integer "1") , - (integer "1") > ,
+    < (integer "1") , (integer "1") , (integer "1") >
+    rotate < (integer "45") , (integer "0") , (integer "0") >
+  }
+  sphere {
+    < (integer "0") , (integer "0") , (integer "0") > , (float "1.25")
+  })' \
+| tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')
+$(echo -n \
+'((box
+    (vector (integer -1) (integer -1) (integer -1) (integer 0) (integer 0))
+    (vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0))
+    (object-modifiers
+      (rotate (vector (integer 45) (integer 0) (integer 0) (integer 0)
+                      (integer 0)))))
+  (sphere
+    (vector (integer 0) (integer 0) (integer 0) (integer 0) (integer 0))
+    (float 1.25)
+    object-modifiers))' \
+| tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')"
 
 if [ "$demo" != "$demo_exp" ]; then
   echo "demo.pov parsed as \"$demo\"" >&2
-- 
cgit v1.2.3