Add test cases for tointeger() and toreal() functions. Fixes for several tests.

FossilOrigin-Name: 5e1e9fd5e4f189836442baa42244be00de13ff0f

diff --git a/manifest b/manifest
index 4d99f3c10c80c40cbf76bef46a59b031635e826e..4dcfa0f08d8ae1ac69f1f8173886bfbb4bca63fd 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\scompiler\swarnings\sand\sboundary\scases\sfor\sthe\stointeger()\sand\storeal()\nfunctions.
-D 2013-08-20T02:07:50.845
+C Add\stest\scases\sfor\stointeger()\sand\storeal()\sfunctions.\s\sFixes\sfor\sseveral\stests.
+D 2013-08-20T09:26:38.953
 F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
 F Makefile.in 5e41da95d92656a5004b03d3576e8b226858a28e
 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@@ -175,7 +175,7 @@ F src/delete.c 2317c814866d9aa71fea16b3faf4fdd4d6a49b94
 F src/expr.c 42d8235af422661ab80be097bebca485b33e2e14
 F src/fault.c 160a0c015b6c2629d3899ed2daf63d75754a32bb
 F src/fkey.c 914a6bbd987d857c41ac9d244efa6641f36faadb
-F src/func.c 03a79c7a2ae5535c36157d7f5823883c5d0179b1
+F src/func.c c47ebaaf71b862edee4beaa041fd77e369d27d6d
 F src/global.c 5caf4deab621abb45b4c607aad1bd21c20aac759
 F src/hash.c ac3470bbf1ca4ae4e306a8ecb0fdf1731810ffe4
 F src/hash.h 8890a25af81fb85a9ad7790d32eedab4b994da22
@@ -560,7 +560,7 @@ F test/full.test 6b3c8fb43c6beab6b95438c1675374b95fab245d
 F test/func.test cd25cf605c5a345d038dc7b84232204c6a901c84
 F test/func2.test 772d66227e4e6684b86053302e2d74a2500e1e0f
 F test/func3.test 001021e5b88bd02a3b365a5c5fd8f6f49d39744a
-F test/func4.test 0e2d0e295bc9093676c6e34ff6e33e2541417985
+F test/func4.test 91a0ff89a98304d23dc795c4dbb65865a484633b
 F test/fuzz-oss1.test 4912e528ec9cf2f42134456933659d371c9e0d74
 F test/fuzz.test 77fd50afc12847af50fcf1941679d90adebadde6
 F test/fuzz2.test 207d0f9d06db3eaf47a6b7bfc835b8e2fc397167
@@ -1106,7 +1106,7 @@ F tool/warnings-clang.sh f6aa929dc20ef1f856af04a730772f59283631d4
 F tool/warnings.sh fbc018d67fd7395f440c28f33ef0f94420226381
 F tool/wherecosttest.c f407dc4c79786982a475261866a161cd007947ae
 F tool/win/sqlite.vsix 97894c2790eda7b5bce3cc79cb2a8ec2fde9b3ac
-P d78c5d89de4b840351b026c9db1952fc24e689d0
-R f40049688c2f823d8e8fd7e09d988578
-U drh
-Z 180da4560f629509c84cc64c4a342242
+P 4438b9865826446721b7aa09295fe335bf2fafb7
+R 87152ed0f9f1782b5b4a8475fb92076d
+U mistachkin
+Z 1ef8a0ac47017357f676bd9db534f67b

diff --git a/manifest.uuid b/manifest.uuid
index b43e0cae130a30d4931ec98c9c5c70bba6c64c85..054e2b1e73a65ba5906d695eb03718ea4ab48dd7 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-4438b9865826446721b7aa09295fe335bf2fafb7
\ No newline at end of file
+5e1e9fd5e4f189836442baa42244be00de13ff0f
\ No newline at end of file

diff --git a/src/func.c b/src/func.c
index 81f75851f7dc2946bf46d6ee905b8f534da94af8..db81760469d3cccd81eedf7bb352ee2573dd2411 100644 (file)
--- a/src/func.c
+++ b/src/func.c
@@ -1028,7 +1028,11 @@ static void torealFunc(
       break;
     }
     case SQLITE_INTEGER: {
-      sqlite3_result_double(context, (double)sqlite3_value_int64(argv[0]));
+      i64 iVal = sqlite3_value_int64(argv[0]);
+      double rVal = (double)iVal;
+      if( iVal==rVal ){
+        sqlite3_result_double(context, rVal);
+      }
       break;
     }
     case SQLITE_BLOB:

diff --git a/test/func4.test b/test/func4.test
index b40cca448ef6036063d22672a3b9c6ffc1019ae8..3e26fea614b114e8d26b0fe94576586ddfba6a5e 100644 (file)
--- a/test/func4.test
+++ b/test/func4.test
@@ -14,6 +14,8 @@
 #
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+set saved_tcl_precision $tcl_precision
+set tcl_precision 0
 
 do_execsql_test func4-1.1 {
   SELECT tointeger(NULL);
@@ -29,7 +31,7 @@ do_execsql_test func4-1.4 {
 } {1234}
 do_execsql_test func4-1.5 {
   SELECT tointeger('   1234');
-} {1234}
+} {{}}
 do_execsql_test func4-1.6 {
   SELECT tointeger('bad');
 } {{}}
@@ -91,80 +93,97 @@ do_execsql_test func4-1.25 {
   SELECT tointeger(-9223372036854775808 + 1);
 } {-9223372036854775807}
 do_execsql_test func4-1.26 {
+  SELECT tointeger(-9223372036854775807 - 1);
+} {-9223372036854775808}
+do_execsql_test func4-1.27 {
+  SELECT tointeger(-9223372036854775807);
+} {-9223372036854775807}
+do_execsql_test func4-1.28 {
+  SELECT tointeger(-9223372036854775807 + 1);
+} {-9223372036854775806}
+do_execsql_test func4-1.29 {
   SELECT tointeger(-2147483648 - 1);
 } {-2147483649}
-do_execsql_test func4-1.27 {
+do_execsql_test func4-1.30 {
   SELECT tointeger(-2147483648);
 } {-2147483648}
-do_execsql_test func4-1.28 {
+do_execsql_test func4-1.31 {
   SELECT tointeger(-2147483648 + 1);
 } {-2147483647}
-do_execsql_test func4-1.29 {
+do_execsql_test func4-1.32 {
   SELECT tointeger(2147483647 - 1);
 } {2147483646}
-do_execsql_test func4-1.30 {
+do_execsql_test func4-1.33 {
   SELECT tointeger(2147483647);
 } {2147483647}
-do_execsql_test func4-1.31 {
+do_execsql_test func4-1.34 {
   SELECT tointeger(2147483647 + 1);
 } {2147483648}
-do_execsql_test func4-1.32 {
+do_execsql_test func4-1.35 {
   SELECT tointeger(9223372036854775807 - 1);
 } {9223372036854775806}
-do_execsql_test func4-1.33 {
+do_execsql_test func4-1.36 {
   SELECT tointeger(9223372036854775807);
 } {9223372036854775807}
-do_execsql_test func4-1.34 {
+do_execsql_test func4-1.37 {
   SELECT tointeger(9223372036854775807 + 1);
 } {{}}
-do_execsql_test func4-1.35 {
+do_execsql_test func4-1.38 {
   SELECT tointeger(1.79769313486232e308 - 1);
 } {{}}
-do_execsql_test func4-1.36 {
+do_execsql_test func4-1.39 {
   SELECT tointeger(1.79769313486232e308);
 } {{}}
-do_execsql_test func4-1.37 {
+do_execsql_test func4-1.40 {
   SELECT tointeger(1.79769313486232e308 + 1);
 } {{}}
-do_execsql_test func4-1.38 {
+do_execsql_test func4-1.41 {
   SELECT tointeger(4503599627370496 - 1);
 } {4503599627370495}
-do_execsql_test func4-1.39 {
+do_execsql_test func4-1.42 {
   SELECT tointeger(4503599627370496);
 } {4503599627370496}
-do_execsql_test func4-1.40 {
+do_execsql_test func4-1.43 {
   SELECT tointeger(4503599627370496 + 1);
 } {4503599627370497}
-do_execsql_test func4-1.41 {
+do_execsql_test func4-1.44 {
   SELECT tointeger(9007199254740992 - 1);
 } {9007199254740991}
-do_execsql_test func4-1.42 {
+do_execsql_test func4-1.45 {
   SELECT tointeger(9007199254740992);
 } {9007199254740992}
-do_execsql_test func4-1.43 {
+do_execsql_test func4-1.46 {
   SELECT tointeger(9007199254740992 + 1);
 } {9007199254740993}
-do_execsql_test func4-1.44 {
+do_execsql_test func4-1.47 {
+  SELECT tointeger(9223372036854775807 - 1);
+} {9223372036854775806}
+do_execsql_test func4-1.48 {
+  SELECT tointeger(9223372036854775807);
+} {9223372036854775807}
+do_execsql_test func4-1.49 {
+  SELECT tointeger(9223372036854775807 + 1);
+} {{}}
+do_execsql_test func4-1.50 {
   SELECT tointeger(9223372036854775808 - 1);
 } {{}}
-do_execsql_test func4-1.45 {
+do_execsql_test func4-1.51 {
   SELECT tointeger(9223372036854775808);
 } {{}}
-do_execsql_test func4-1.46 {
+do_execsql_test func4-1.52 {
   SELECT tointeger(9223372036854775808 + 1);
 } {{}}
-do_execsql_test func4-1.47 {
+do_execsql_test func4-1.53 {
   SELECT tointeger(18446744073709551616 - 1);
 } {{}}
-do_execsql_test func4-1.48 {
+do_execsql_test func4-1.54 {
   SELECT tointeger(18446744073709551616);
 } {{}}
-do_execsql_test func4-1.49 {
+do_execsql_test func4-1.55 {
   SELECT tointeger(18446744073709551616 + 1);
 } {{}}
 
 ifcapable floatingpoint {
-  set i 0
   do_execsql_test func4-2.1 {
     SELECT toreal(NULL);
   } {{}}
@@ -179,7 +198,7 @@ ifcapable floatingpoint {
   } {1234.0}
   do_execsql_test func4-2.5 {
     SELECT toreal('   1234');
-  } {1234.0}
+  } {{}}
   do_execsql_test func4-2.6 {
     SELECT toreal('bad');
   } {{}}
@@ -233,92 +252,103 @@ ifcapable floatingpoint {
   } {-Inf}
   do_execsql_test func4-2.23 {
     SELECT toreal(-9223372036854775808 - 1);
-  } {-9.22337203685478e+18}
+  } {-9.223372036854776e+18}
   do_execsql_test func4-2.24 {
     SELECT toreal(-9223372036854775808);
-  } {-9.22337203685478e+18}
+  } {-9.223372036854776e+18}
   do_execsql_test func4-2.25 {
     SELECT toreal(-9223372036854775808 + 1);
-  } {-9.22337203685478e+18}
+  } {{}}
   do_execsql_test func4-2.26 {
+    SELECT toreal(-9223372036854775807 - 1);
+  } {-9.223372036854776e+18}
+  do_execsql_test func4-2.27 {
+    SELECT toreal(-9223372036854775807);
+  } {{}}
+  do_execsql_test func4-2.28 {
+    SELECT toreal(-9223372036854775807 + 1);
+  } {{}}
+  do_execsql_test func4-2.29 {
     SELECT toreal(-2147483648 - 1);
   } {-2147483649.0}
-  do_execsql_test func4-2.27 {
+  do_execsql_test func4-2.30 {
     SELECT toreal(-2147483648);
   } {-2147483648.0}
-  do_execsql_test func4-2.28 {
+  do_execsql_test func4-2.31 {
     SELECT toreal(-2147483648 + 1);
   } {-2147483647.0}
-  do_execsql_test func4-2.29 {
+  do_execsql_test func4-2.32 {
     SELECT toreal(2147483647 - 1);
   } {2147483646.0}
-  do_execsql_test func4-2.30 {
+  do_execsql_test func4-2.33 {
     SELECT toreal(2147483647);
   } {2147483647.0}
-  do_execsql_test func4-2.31 {
+  do_execsql_test func4-2.34 {
     SELECT toreal(2147483647 + 1);
   } {2147483648.0}
-  do_execsql_test func4-2.32 {
+  do_execsql_test func4-2.35 {
     SELECT toreal(9223372036854775807 - 1);
-  } {9.22337203685478e+18}
-  do_execsql_test func4-2.33 {
+  } {{}}
+  do_execsql_test func4-2.36 {
     SELECT toreal(9223372036854775807);
-  } {9.22337203685478e+18}
-  do_execsql_test func4-2.34 {
+  } {{}}
+  do_execsql_test func4-2.37 {
     SELECT toreal(9223372036854775807 + 1);
-  } {9.22337203685478e+18}
-  do_execsql_test func4-2.35 {
+  } {9.223372036854776e+18}
+  do_execsql_test func4-2.38 {
     SELECT toreal(1.79769313486232e308 - 1);
   } {Inf}
-  do_execsql_test func4-2.36 {
+  do_execsql_test func4-2.39 {
     SELECT toreal(1.79769313486232e308);
   } {Inf}
-  do_execsql_test func4-2.37 {
+  do_execsql_test func4-2.40 {
     SELECT toreal(1.79769313486232e308 + 1);
   } {Inf}
-  do_execsql_test func4-2.38 {
-    SELECT toreal(4503599627370496 - 1);
-  } {4503599627370500.0}
-  do_execsql_test func4-2.39 {
-    SELECT toreal(4503599627370496);
-  } {4503599627370500.0}
-  do_execsql_test func4-2.40 {
-    SELECT toreal(4503599627370496 + 1);
-  } {4503599627370500.0}
   do_execsql_test func4-2.41 {
-    SELECT toreal(9007199254740992 - 1);
-  } {9007199254740990.0}
+    SELECT toreal(4503599627370496 - 1);
+  } {4503599627370495.0}
   do_execsql_test func4-2.42 {
-    SELECT toreal(9007199254740992);
-  } {9007199254740990.0}
+    SELECT toreal(4503599627370496);
+  } {4503599627370496.0}
   do_execsql_test func4-2.43 {
-    SELECT toreal(9007199254740992 + 1);
-  } {9007199254740990.0}
+    SELECT toreal(4503599627370496 + 1);
+  } {4503599627370497.0}
   do_execsql_test func4-2.44 {
-    SELECT toreal(9223372036854775808 - 1);
-  } {9.22337203685478e+18}
+    SELECT toreal(9007199254740992 - 1);
+  } {9007199254740991.0}
   do_execsql_test func4-2.45 {
-    SELECT toreal(9223372036854775808);
-  } {9.22337203685478e+18}
+    SELECT toreal(9007199254740992);
+  } {9007199254740992.0}
   do_execsql_test func4-2.46 {
-    SELECT toreal(9223372036854775808 + 1);
-  } {9.22337203685478e+18}
+    SELECT toreal(9007199254740992 + 1);
+  } {{}}
   do_execsql_test func4-2.47 {
-    SELECT toreal(18446744073709551616 - 1);
-  } {1.84467440737096e+19}
+    SELECT toreal(9007199254740992 + 2);
+  } {9007199254740994.0}
   do_execsql_test func4-2.48 {
-    SELECT toreal(18446744073709551616);
-  } {1.84467440737096e+19}
+    SELECT toreal(tointeger(9223372036854775808) - 1);
+  } {{}}
   do_execsql_test func4-2.49 {
-    SELECT toreal(18446744073709551616 + 1);
-  } {1.84467440737096e+19}
+    SELECT toreal(tointeger(9223372036854775808));
+  } {{}}
+  do_execsql_test func4-2.50 {
+    SELECT toreal(tointeger(9223372036854775808) + 1);
+  } {{}}
+  do_execsql_test func4-2.51 {
+    SELECT toreal(tointeger(18446744073709551616) - 1);
+  } {{}}
+  do_execsql_test func4-2.52 {
+    SELECT toreal(tointeger(18446744073709551616));
+  } {{}}
+  do_execsql_test func4-2.53 {
+    SELECT toreal(tointeger(18446744073709551616) + 1);
+  } {{}}
 }
 
 ifcapable check {
-  set i 0
   do_execsql_test func4-3.1 {
     CREATE TABLE t1(
-      x INTEGER CHECK(tointeger(x) IS NOT NULL AND x = CAST(x AS INTEGER))
+      x INTEGER CHECK(tointeger(x) IS NOT NULL)
     );
   } {}
   do_test func4-3.2 {
@@ -391,12 +421,31 @@ ifcapable check {
       INSERT INTO t1 (x) VALUES (X'12345678');
     }
   } {1 {constraint failed}}
-  do_execsql_test func4-3.16 {
+  do_test func4-3.16 {
+    catchsql {
+      INSERT INTO t1 (x) VALUES ('1234.00');
+    }
+  } {1 {constraint failed}}
+  do_test func4-3.17 {
+    catchsql {
+      INSERT INTO t1 (x) VALUES (1234.00);
+    }
+  } {0 {}}
+  do_test func4-3.18 {
+    catchsql {
+      INSERT INTO t1 (x) VALUES ('-9223372036854775809');
+    }
+  } {1 {constraint failed}}
+  do_test func4-3.19 {
+    catchsql {
+      INSERT INTO t1 (x) VALUES (9223372036854775808);
+    }
+  } {1 {constraint failed}}
+  do_execsql_test func4-3.20 {
     SELECT x FROM t1 ORDER BY x;
-  } {1234 1234}
+  } {1234 1234 1234}
 
   ifcapable floatingpoint {
-    set i 0
     do_execsql_test func4-4.1 {
       CREATE TABLE t2(
         x REAL CHECK(toreal(x) IS NOT NULL)
@@ -478,4 +527,99 @@ ifcapable check {
   }
 }
 
+ifcapable floatingpoint {
+  do_execsql_test func4-5.1 {
+    SELECT tointeger(toreal('1234'));
+  } {1234}
+  do_execsql_test func4-5.2 {
+    SELECT tointeger(toreal(-1));
+  } {-1}
+  do_execsql_test func4-5.3 {
+    SELECT tointeger(toreal(-0));
+  } {0}
+  do_execsql_test func4-5.4 {
+    SELECT tointeger(toreal(0));
+  } {0}
+  do_execsql_test func4-5.5 {
+    SELECT tointeger(toreal(1));
+  } {1}
+  do_execsql_test func4-5.6 {
+    SELECT tointeger(toreal(-9223372036854775808 - 1));
+  } {-9223372036854775808}
+  do_execsql_test func4-5.7 {
+    SELECT tointeger(toreal(-9223372036854775808));
+  } {-9223372036854775808}
+  do_execsql_test func4-5.8 {
+    SELECT tointeger(toreal(-9223372036854775808 + 1));
+  } {{}}
+  do_execsql_test func4-5.9 {
+    SELECT tointeger(toreal(-2147483648 - 1));
+  } {-2147483649}
+  do_execsql_test func4-5.10 {
+    SELECT tointeger(toreal(-2147483648));
+  } {-2147483648}
+  do_execsql_test func4-5.11 {
+    SELECT tointeger(toreal(-2147483648 + 1));
+  } {-2147483647}
+  do_execsql_test func4-5.12 {
+    SELECT tointeger(toreal(2147483647 - 1));
+  } {2147483646}
+  do_execsql_test func4-5.13 {
+    SELECT tointeger(toreal(2147483647));
+  } {2147483647}
+  do_execsql_test func4-5.14 {
+    SELECT tointeger(toreal(2147483647 + 1));
+  } {2147483648}
+  do_execsql_test func4-5.15 {
+    SELECT tointeger(toreal(9223372036854775807 - 1));
+  } {{}}
+  do_execsql_test func4-5.16 {
+    SELECT tointeger(toreal(9223372036854775807));
+  } {{}}
+  do_execsql_test func4-5.17 {
+    SELECT tointeger(toreal(9223372036854775807 + 1));
+  } {{}}
+  do_execsql_test func4-5.18 {
+    SELECT tointeger(toreal(4503599627370496 - 1));
+  } {4503599627370495}
+  do_execsql_test func4-5.19 {
+    SELECT tointeger(toreal(4503599627370496));
+  } {4503599627370496}
+  do_execsql_test func4-5.20 {
+    SELECT tointeger(toreal(4503599627370496 + 1));
+  } {4503599627370497}
+  do_execsql_test func4-5.21 {
+    SELECT tointeger(toreal(9007199254740992 - 1));
+  } {9007199254740991}
+  do_execsql_test func4-5.22 {
+    SELECT tointeger(toreal(9007199254740992));
+  } {9007199254740992}
+  do_execsql_test func4-5.23 {
+    SELECT tointeger(toreal(9007199254740992 + 1));
+  } {{}}
+  do_execsql_test func4-5.24 {
+    SELECT tointeger(toreal(9007199254740992 + 2));
+  } {9007199254740994}
+  do_execsql_test func4-5.25 {
+    SELECT tointeger(toreal(9223372036854775808 - 1));
+  } {{}}
+  do_execsql_test func4-5.26 {
+    SELECT tointeger(toreal(9223372036854775808));
+  } {{}}
+  do_execsql_test func4-5.27 {
+    SELECT tointeger(toreal(9223372036854775808 + 1));
+  } {{}}
+  do_execsql_test func4-5.28 {
+    SELECT tointeger(toreal(18446744073709551616 - 1));
+  } {{}}
+  do_execsql_test func4-5.29 {
+    SELECT tointeger(toreal(18446744073709551616));
+  } {{}}
+  do_execsql_test func4-5.30 {
+    SELECT tointeger(toreal(18446744073709551616 + 1));
+  } {{}}
+}
+
+set tcl_precision $saved_tcl_precision
+unset saved_tcl_precision
 finish_test