[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/win32longpath.test

-# 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