From 29ca34d1bbaa4e16cfbc6aca5e3ed760ad54f6a4 Mon Sep 17 00:00:00 2001 From: Tavian Barnes 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