Index: third_party/sqlite/sqlite-src-3080704/test/win32longpath.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/win32longpath.test b/third_party/sqlite/sqlite-src-3080704/test/win32longpath.test |
deleted file mode 100644 |
index 9e9ed359c634cf91650b497bf30bc825f77a7c48..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/win32longpath.test |
+++ /dev/null |
@@ -1,110 +0,0 @@ |
-# 2013 August 27 |
-# |
-# 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. The |
-# focus of this script is testing the file name handling provided |
-# by the "win32-longpath" VFS. |
-# |
- |
-if {$tcl_platform(platform)!="windows"} return |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-set testprefix win32longpath |
- |
-do_test 1.0 { |
- file_control_vfsname db |
-} win32 |
- |
-db close |
-set path [file nativename [get_pwd]] |
-sqlite3 db [file join $path test.db] -vfs win32-longpath |
- |
-do_test 1.1 { |
- file_control_vfsname db |
-} win32-longpath |
- |
-do_test 1.2 { |
- db eval { |
- BEGIN EXCLUSIVE; |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(1); |
- INSERT INTO t1 VALUES(2); |
- INSERT INTO t1 VALUES(3); |
- INSERT INTO t1 VALUES(4); |
- SELECT x FROM t1 ORDER BY x; |
- COMMIT; |
- } |
-} {1 2 3 4} |
- |
-set longPath(1) \\\\?\\$path\\[pid] |
-make_win32_dir $longPath(1) |
- |
-set longPath(2) $longPath(1)\\[string repeat X 255] |
-make_win32_dir $longPath(2) |
- |
-set longPath(3) $longPath(2)\\[string repeat Y 255] |
-make_win32_dir $longPath(3) |
- |
-set fileName $longPath(3)\\test.db |
- |
-do_test 1.3 { |
- list [catch {sqlite3 db2 [string range $fileName 4 end]} msg] $msg |
-} {1 {unable to open database file}} |
- |
-sqlite3 db3 $fileName -vfs win32-longpath |
- |
-do_test 1.4 { |
- db3 eval { |
- BEGIN EXCLUSIVE; |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(5); |
- INSERT INTO t1 VALUES(6); |
- INSERT INTO t1 VALUES(7); |
- INSERT INTO t1 VALUES(8); |
- SELECT x FROM t1 ORDER BY x; |
- COMMIT; |
- } |
-} {5 6 7 8} |
- |
-db3 close |
-# puts " Database exists \{[exists_win32_path $fileName]\}" |
- |
-sqlite3 db3 $fileName -vfs win32-longpath |
- |
-do_test 1.5 { |
- db3 eval { |
- PRAGMA journal_mode = WAL; |
- } |
-} {wal} |
- |
-do_test 1.6 { |
- db3 eval { |
- BEGIN EXCLUSIVE; |
- INSERT INTO t1 VALUES(9); |
- INSERT INTO t1 VALUES(10); |
- INSERT INTO t1 VALUES(11); |
- INSERT INTO t1 VALUES(12); |
- SELECT x FROM t1 ORDER BY x; |
- COMMIT; |
- } |
-} {5 6 7 8 9 10 11 12} |
- |
-db3 close |
-# puts " Database exists \{[exists_win32_path $fileName]\}" |
- |
-do_delete_win32_file $fileName |
-# puts " Files remaining \{[find_win32_file $longPath(3)\\*]\}" |
- |
-do_remove_win32_dir $longPath(3) |
-do_remove_win32_dir $longPath(2) |
-do_remove_win32_dir $longPath(1) |
- |
-finish_test |