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.pov | 15 +++++++++++++++
 tests/dimension/directives.sh  | 28 ++++++++++++++++++++++++++--
 2 files changed, 41 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/dimension/directives.pov b/tests/dimension/directives.pov
index e4721fc..634c2e9 100644
--- a/tests/dimension/directives.pov
+++ b/tests/dimension/directives.pov
@@ -63,3 +63,18 @@
 
   Inc(Counter)
 #end
+
+#declare Box =
+  box {
+    <-1, -1, -1>, <1, 1, 1>
+    pigment {
+      color rgb <1, 1, 1>
+    }
+  }
+
+object {
+  Box
+  finish {
+    phong 0.2
+  }
+}
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