1 files changed, 218 insertions, 0 deletions
diff --git a/dimension/tests/arithexp.pov b/dimension/tests/arithexp.pov
new file mode 100644
index 0000000..d38b13a
--- /dev/null
+++ b/dimension/tests/arithexp.pov
@@ -0,0 +1,218 @@
+/*************************************************************************
+ * Copyright (C) 2009-2010 Tavian Barnes <tavianator@tavianator.com>     *
+ *                                                                       *
+ * This file is part of The Dimension Test Suite.                        *
+ *                                                                       *
+ * The Dimension Test Suite is free software; you can redistribute it    *
+ * and/or modify it under the terms of the GNU General Public License as *
+ * published by the Free Software Foundation; either version 3 of the    *
+ * License, or (at your option) any later version.                       *
+ *                                                                       *
+ * The Dimension Test Suite is distributed in the hope that it will be   *
+ * useful, but WITHOUT ANY WARRANTY; without even the implied warranty   *
+ * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU  *
+ * General Public License for more details.                              *
+ *                                                                       *
+ * You should have received a copy of the GNU General Public License     *
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>. *
+ *************************************************************************/
+
+// Test arithmetic expression handling
+
+sphere {
+  2*<<2.0 - 1.0, 3.0, 4.0>.x, (1.0 + 2)*2 - 5, 1.0 + 2*2 - 4> - -<0, 0, 1>,
+  exp(1) - (0 >= 1 ? 0 : 1*2)
+}
+
+/* Float functions */
+
+#if (abs(-1) != 1)
+  #error "abs"
+#end
+
+#if (acos(0) != 1.570796326794897)
+  #error "acos"
+#end
+
+#if (acosh(2) != 1.316957896924817)
+  #error "acosh"
+#end
+
+#if (asc("ABC") != 65)
+  #error "asc"
+#end
+
+#if (asin(1) != 1.570796326794897)
+  #error "asin"
+#end
+
+#if (asinh(2) != 1.44363547517881)
+  #error "asinh"
+#end
+
+#if (atan(1) != 0.7853981633974483)
+  #error "atan"
+#end
+
+#if (atan2(-1, -1) != -2.35619449019234)
+  #error "atan2"
+#end
+
+#if (atanh(0.5) != 0.5493061443340548)
+  #error "atanh"
+#end
+
+#if (ceil(-1.5) != -1)
+  #error "ceil"
+#end
+
+#if (cos(1.570796326794897) != 0)
+  #error "cos"
+#end
+
+#if (cosh(1.316957896924817) != 2)
+  #error "cosh"
+#end
+
+#if (degrees(1.570796326794897) != 90)
+  #error "degrees"
+#end
+
+#if (div(3,2) != 1)
+  #error "div"
+#end
+
+#if (exp(1) != 2.718281828459045)
+  #error "exp"
+#end
+
+#if (floor(-1.5) != -2)
+  #error "floor"
+#end
+
+#if (int(-1.9) != -1)
+  #error "int"
+#end
+
+#if (ln(2.718281828459045) != 1)
+  #error "ln"
+#end
+
+#if (log(1000) != 3)
+  #error "log"
+#end
+
+#if (max(-1.5, 0, 1) != 1)
+  #error "max"
+#end
+
+#if (min(-1.5, 0, 1) != -1.5)
+  #error "min"
+#end
+
+#if (mod(3.5, 2) != 1.5)
+  #error "mod"
+#end
+
+#if (pow(2, 3) != 8)
+  #error "pow"
+#end
+
+#if (radians(90) != 1.570796326794897)
+  #error "radians"
+#end
+
+#if (sin(1.570796326794897) != 1)
+  #error "sin"
+#end
+
+#if (sinh(1.44363547517881) != 2)
+  #error "sinh"
+#end
+
+#if (strcmp("asdfjkl;", "jkl;asdf") >= 0)
+  #error "strcmp"
+#end
+
+#if (strlen("asdfjkl;") != 8)
+  #error "strlen"
+#end
+
+#if (sqrt(2) != 1.414213562373095)
+  #error "sqrt"
+#end
+
+#if (tan(0.7853981633974483) != 1)
+  #error "tan"
+#end
+
+#if (tanh(0.5493061443340548) != 0.5)
+  #error "tanh"
+#end
+
+#if (val("123.45") != 123.45)
+  #error "val"
+#end
+
+#if (vaxis_rotate(<1, 0, 0>, <1, 0, 1>, 180) != <0, 0, 1>)
+  #error "vaxis_rotate"
+#end
+
+#if (vaxis_rotate(1, 1, 180) != <1, 1, 1>)
+  #error "vaxis_rotate"
+#end
+
+#if (vcross(<1, 2, 3>, <3, 2, 1>) != <-4, 8, -4>)
+  #error "vcross"
+#end
+
+#if (vcross(1, 2) != 0)
+  #error "vcross"
+#end
+
+#if (vdot(<1, 2, 3>, 2) != 12)
+  #error "vdot"
+#end
+
+#if (vdot(2, 2) != 12)
+  #error "vdot"
+#end
+
+#if (vlength(<1, 1, 1>) != 1.732050807568877)
+  #error "vlength"
+#end
+
+#if (vlength(1) != 1.732050807568877)
+  #error "vlength"
+#end
+
+#if (vnormalize(<1, 1, 1>)
+     != <0.5773502691896258, 0.5773502691896258, 0.5773502691896258>)
+  #error "vnormalize"
+#end
+
+#if (vnormalize(1) != 0.4472135954999579) // Vector promoted comparison
+  #error "vnormalize"
+#end
+
+#if (vrotate(<1, 0, 0>, <0, -90, 0>) != <0, 0, 1>)
+  #error "vrotate"
+#end
+
+#if (vrotate(1, 2) != <1, 1, 1>)
+  #error "vrotate"
+#end
+
+/* Float built-in IDs */
+
+#if (pi != 3.141592653589793)
+  #error "pi"
+#end
+
+#if (!true | !yes | !on)
+  #error "true"
+#end
+
+#if (false | no | off)
+  #error "false"
+#end