Index: third_party/sqlite/sqlite-src-3100200/test/orderby9.test |
diff --git a/third_party/sqlite/sqlite-src-3100200/test/orderby9.test b/third_party/sqlite/sqlite-src-3100200/test/orderby9.test |
deleted file mode 100644 |
index 581951c79563e2a7ce924d711c1a29a18ed6ce36..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3100200/test/orderby9.test |
+++ /dev/null |
@@ -1,62 +0,0 @@ |
-# 2015-08-26 |
-# |
-# The author disclaims copyright to this source code. In place of |
-# a legal notice, here is a blessing: |
-# |
-# May you do good and not evil. |
-# May you find forgiveness for yourself and forgive others. |
-# May you share freely, never taking more than you give. |
-# |
-#*********************************************************************** |
-# This file implements regression tests for SQLite library. |
-# |
-# This file seeks to verify that expressions (and especially functions) |
-# that are in both the ORDER BY clause and the result set are only |
-# evaluated once. |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-set ::testprefix orderby9 |
- |
- |
-do_execsql_test setup { |
- -- create a table with many entries |
- CREATE TABLE t1(x); |
- WITH RECURSIVE |
- c(x) AS (VALUES(1) UNION ALL SELECT x+1 FROM c WHERE x<100) |
- INSERT INTO t1 SELECT x FROM c; |
-} |
- |
-# Some versions of TCL are unable to [lsort -int] for |
-# 64-bit integers. So we write our own comparison |
-# routine. |
-proc bigintcompare {a b} { |
- set x [expr {$a-$b}] |
- if {$x<0} {return -1} |
- if {$x>0} {return +1} |
- return 0 |
-} |
-do_test 1.0 { |
- set l1 {} |
- # If random() is only evaluated once and then reused for each row, then |
- # the output should appear in sorted order. If random() is evaluated |
- # separately for the result set and the ORDER BY clause, then the output |
- # order will be random. |
- db eval {SELECT random() AS y FROM t1 ORDER BY 1;} {lappend l1 $y} |
- expr {$l1==[lsort -command bigintcompare $l1]} |
-} {1} |
- |
-do_test 1.1 { |
- set l1 {} |
- db eval {SELECT random() AS y FROM t1 ORDER BY random();} {lappend l1 $y} |
- expr {$l1==[lsort -command bigintcompare $l1]} |
-} {1} |
- |
-do_test 1.2 { |
- set l1 {} |
- db eval {SELECT random() AS y FROM t1 ORDER BY +random();} {lappend l1 $y} |
- expr {$l1==[lsort -command bigintcompare $l1]} |
-} {0} |
- |
-finish_test |