Add tests for floating point evaluation of builtin symbols

Author: fllor

check/features.frm

@@ -592,6 +592,95 @@ assert result("F", 3) =~ expr("
      & x1**2*x2 + x1**3
 ")
 *--#] Format_noreset_linelen :
+*--#[ evaluate_symbol :
+#-
+#StartFloat 64
+
+Symbol a,b;
+Local PI0 = a*b;
+Local PI1 = pi_;
+Local PI2 = pi_*3;
+Local PI3 = pi_*sqrt_(3);
+Local PI4 = pi_*pi_*pi_;
+Local PI5 = a*pi_*b;
+Local PI6 = sqrt_(pi_);
+
+Local EE1 = ee_;
+Local EE2 = pi_*ee_;
+
+Local EM1 = em_;
+
+ToFloat;
+Evaluate;
+
+Print;
+.end
+#pend_if wordsize == 2
+assert result("PI0") =~ expr("1.0e+00*a*b")
+assert result("PI1") =~ expr("3.14159265358979323846e+00")
+assert result("PI2") =~ expr("9.42477796076937971538e+00")
+assert result("PI3") =~ expr("5.4413980927026535518e+00")
+assert result("PI4") =~ expr("3.10062766802998201755e+01")
+assert result("PI5") =~ expr("3.14159265358979323846e+00*a*b")
+assert result("PI6") =~ expr("1.77245385090551602731e+00")
+assert result("EE1") =~ expr("2.71828182845904523537e+00")
+assert result("EE2") =~ expr("8.53973422267356706549e+00")
+assert result("EM1") =~ expr("5.77215664901532860607e-01")
+*--#] evaluate_symbol :
+*--#[ evaluate_symbol_pi :
+#-
+#StartFloat 128
+
+Local PI = pi_;
+Local EE = ee_;
+Local EM = em_;
+
+ToFloat;
+Evaluate pi_;
+
+Print;
+.end
+#pend_if wordsize == 2
+assert result("PI") =~ expr("3.141592653589793238462643383279502884198e+00")
+assert result("EE") =~ expr("1.0e+00*ee_")
+assert result("EM") =~ expr("1.0e+00*em_")
+*--#] evaluate_symbol_pi :
+*--#[ evaluate_symbol_ee :
+#-
+#StartFloat 160
+
+Local PI = pi_;
+Local EE = ee_;
+Local EM = em_;
+
+ToFloat;
+Evaluate ee_;
+
+Print;
+.end
+#pend_if wordsize == 2
+assert result("PI") =~ expr("1.0e+00*pi_")
+assert result("EE") =~ expr("2.718281828459045235360287471352662497757247093699959574967e+00")
+assert result("EM") =~ expr("1.0e+00*em_")
+*--#] evaluate_symbol_ee :
+*--#[ evaluate_symbol_em :
+#-
+#StartFloat 192
+
+Local PI = pi_;
+Local EE = ee_;
+Local EM = em_;
+
+ToFloat;
+Evaluate em_;
+
+Print;
+.end
+#pend_if wordsize == 2
+assert result("PI") =~ expr("1.0e+00*pi_")
+assert result("EE") =~ expr("1.0e+00*ee_")
+assert result("EM") =~ expr("5.7721566490153286060651209008240243104215933593992359880577e-01")
+*--#] evaluate_symbol_em :
 *--#[ Issue49 :
 * Add mul_ function for polynomial multiplications
 Symbols x,y,z;