From 29ca34d1bbaa4e16cfbc6aca5e3ed760ad54f6a4 Mon Sep 17 00:00:00 2001
From: Tavian Barnes <tavianator@gmail.com>
Date: Wed, 31 Mar 2010 20:38:32 -0400
Subject: Support object identifiers.

---
 tests/dimension/directives.sh | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

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

diff --git a/tests/dimension/directives.sh b/tests/dimension/directives.sh
index 713a1fe..1e487c4 100755
--- a/tests/dimension/directives.sh
+++ b/tests/dimension/directives.sh
@@ -54,7 +54,23 @@ directives_exp="$(echo -n \
       (identifier "Make_Sphere") \( (identifier "Counter") \)
     #end
     (identifier "Inc") \( (identifier "Counter") \)
-  #end)' \
+  #end
+
+  #declare (identifier "Box") =
+    box {
+      < - (integer "1") , - (integer "1") , - (integer "1") > ,
+      < (integer "1") , (integer "1") , (integer "1") >
+      pigment {
+        color rgb < (integer "1") , (integer "1") , (integer "1") >
+      }
+    }
+
+  object {
+    (identifier "Box")
+    finish {
+      phong (float "0.2")
+    }
+  })' \
 | tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')
 $(echo -n \
 '((sphere
@@ -68,7 +84,15 @@ $(echo -n \
     (integer 1)
     (object-modifiers
       (pigment (vector (integer 1) (integer 1) (integer 1)
-                       (integer 0) (integer 0))))))' \
+                       (integer 0) (integer 0)))))
+  (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
+      (pigment (vector (integer 1) (integer 1) (integer 1)
+                       (integer 0) (integer 0)))
+      (finish
+         (phong (float 0.2))))))' \
 | tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')"
 
 if [ "$directives" != "$directives_exp" ]; then
-- 
cgit v1.2.3