diff options
| author | Tavian Barnes <tavianator@gmail.com> | 2010-03-31 20:38:32 -0400 |
|---|---|---|
| committer | Tavian Barnes <tavianator@gmail.com> | 2010-03-31 20:38:32 -0400 |
| commit | 29ca34d1bbaa4e16cfbc6aca5e3ed760ad54f6a4 (patch) | |
| tree | 90453b6abb88c55841232b9480cd45a325f63763 /tests | |
| parent | 2c7ecf9d50d11f66b41605b3347c9b4d932853c1 (diff) | |
| download | dimension-29ca34d1bbaa4e16cfbc6aca5e3ed760ad54f6a4.tar.xz | |
Support object identifiers.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/dimension/directives.pov | 15 | ||||
| -rwxr-xr-x | tests/dimension/directives.sh | 28 |
2 files changed, 41 insertions, 2 deletions
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 |