/ Hex Artifact Content
Login

Artifact 169c75a3b2e43481f4a62122510210c67b08f26d:


0000: 23 20 32 30 31 33 20 41 75 67 75 73 74 20 32 37  # 2013 August 27
0010: 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20  .#.# The author 
0020: 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69  disclaims copyri
0030: 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72  ght to this sour
0040: 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61  ce code.  In pla
0050: 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20  ce of.# a legal 
0060: 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20  notice, here is 
0070: 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20  a blessing:.#.# 
0080: 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f     May you do go
0090: 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e  od and not evil.
00a0: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69  .#    May you fi
00b0: 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66  nd forgiveness f
00c0: 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20  or yourself and 
00d0: 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a  forgive others..
00e0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61  #    May you sha
00f0: 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72  re freely, never
0100: 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61   taking more tha
0110: 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a  n you give..#.#*
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73 20 66 69  ******.# This fi
0170: 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65  le implements re
0180: 67 72 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66  gression tests f
0190: 6f 72 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72  or SQLite librar
01a0: 79 2e 20 20 54 68 65 0a 23 20 66 6f 63 75 73 20  y.  The.# focus 
01b0: 6f 66 20 74 68 69 73 20 73 63 72 69 70 74 20 69  of this script i
01c0: 73 20 74 65 73 74 69 6e 67 20 74 68 65 20 66 69  s testing the fi
01d0: 6c 65 20 6e 61 6d 65 20 68 61 6e 64 6c 69 6e 67  le name handling
01e0: 20 70 72 6f 76 69 64 65 64 0a 23 20 62 79 20 74   provided.# by t
01f0: 68 65 20 22 77 69 6e 33 32 2d 6c 6f 6e 67 70 61  he "win32-longpa
0200: 74 68 22 20 56 46 53 2e 0a 23 0a 0a 69 66 20 7b  th" VFS..#..if {
0210: 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c  $tcl_platform(pl
0220: 61 74 66 6f 72 6d 29 21 3d 22 77 69 6e 64 6f 77  atform)!="window
0230: 73 22 7d 20 72 65 74 75 72 6e 0a 0a 73 65 74 20  s"} return..set 
0240: 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69  testdir [file di
0250: 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f  rname $argv0].so
0260: 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65  urce $testdir/te
0270: 73 74 65 72 2e 74 63 6c 0a 73 65 74 20 74 65 73  ster.tcl.set tes
0280: 74 70 72 65 66 69 78 20 77 69 6e 33 32 6c 6f 6e  tprefix win32lon
0290: 67 70 61 74 68 0a 0a 64 6f 5f 74 65 73 74 20 31  gpath..do_test 1
02a0: 2e 30 20 7b 0a 20 20 66 69 6c 65 5f 63 6f 6e 74  .0 {.  file_cont
02b0: 72 6f 6c 5f 76 66 73 6e 61 6d 65 20 64 62 0a 7d  rol_vfsname db.}
02c0: 20 77 69 6e 33 32 0a 0a 64 62 20 63 6c 6f 73 65   win32..db close
02d0: 0a 73 65 74 20 70 61 74 68 20 5b 66 69 6c 65 20  .set path [file 
02e0: 6e 61 74 69 76 65 6e 61 6d 65 20 5b 67 65 74 5f  nativename [get_
02f0: 70 77 64 5d 5d 0a 73 71 6c 69 74 65 33 20 64 62  pwd]].sqlite3 db
0300: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74   [file join $pat
0310: 68 20 74 65 73 74 2e 64 62 5d 20 2d 76 66 73 20  h test.db] -vfs 
0320: 77 69 6e 33 32 2d 6c 6f 6e 67 70 61 74 68 0a 0a  win32-longpath..
0330: 64 6f 5f 74 65 73 74 20 31 2e 31 20 7b 0a 20 20  do_test 1.1 {.  
0340: 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 76 66 73  file_control_vfs
0350: 6e 61 6d 65 20 64 62 0a 7d 20 77 69 6e 33 32 2d  name db.} win32-
0360: 6c 6f 6e 67 70 61 74 68 0a 0a 64 6f 5f 74 65 73  longpath..do_tes
0370: 74 20 31 2e 32 20 7b 0a 20 20 64 62 20 65 76 61  t 1.2 {.  db eva
0380: 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 20 45 58  l {.    BEGIN EX
0390: 43 4c 55 53 49 56 45 3b 0a 20 20 20 20 43 52 45  CLUSIVE;.    CRE
03a0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b  ATE TABLE t1(x);
03b0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
03c0: 20 74 31 20 56 41 4c 55 45 53 28 31 29 3b 0a 20   t1 VALUES(1);. 
03d0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
03e0: 31 20 56 41 4c 55 45 53 28 32 29 3b 0a 20 20 20  1 VALUES(2);.   
03f0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0400: 56 41 4c 55 45 53 28 33 29 3b 0a 20 20 20 20 49  VALUES(3);.    I
0410: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0420: 4c 55 45 53 28 34 29 3b 0a 20 20 20 20 53 45 4c  LUES(4);.    SEL
0430: 45 43 54 20 78 20 46 52 4f 4d 20 74 31 20 4f 52  ECT x FROM t1 OR
0440: 44 45 52 20 42 59 20 78 3b 0a 20 20 20 20 43 4f  DER BY x;.    CO
0450: 4d 4d 49 54 3b 0a 20 20 7d 0a 7d 20 7b 31 20 32  MMIT;.  }.} {1 2
0460: 20 33 20 34 7d 0a 0a 73 65 74 20 6c 6f 6e 67 50   3 4}..set longP
0470: 61 74 68 28 31 29 20 5c 5c 5c 5c 3f 5c 5c 24 70  ath(1) \\\\?\\$p
0480: 61 74 68 5c 5c 5b 70 69 64 5d 0a 6d 61 6b 65 5f  ath\\[pid].make_
0490: 77 69 6e 33 32 5f 64 69 72 20 24 6c 6f 6e 67 50  win32_dir $longP
04a0: 61 74 68 28 31 29 0a 0a 73 65 74 20 6c 6f 6e 67  ath(1)..set long
04b0: 50 61 74 68 28 32 29 20 24 6c 6f 6e 67 50 61 74  Path(2) $longPat
04c0: 68 28 31 29 5c 5c 5b 73 74 72 69 6e 67 20 72 65  h(1)\\[string re
04d0: 70 65 61 74 20 58 20 32 35 35 5d 0a 6d 61 6b 65  peat X 255].make
04e0: 5f 77 69 6e 33 32 5f 64 69 72 20 24 6c 6f 6e 67  _win32_dir $long
04f0: 50 61 74 68 28 32 29 0a 0a 73 65 74 20 6c 6f 6e  Path(2)..set lon
0500: 67 50 61 74 68 28 33 29 20 24 6c 6f 6e 67 50 61  gPath(3) $longPa
0510: 74 68 28 32 29 5c 5c 5b 73 74 72 69 6e 67 20 72  th(2)\\[string r
0520: 65 70 65 61 74 20 59 20 32 35 35 5d 0a 6d 61 6b  epeat Y 255].mak
0530: 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 6c 6f 6e  e_win32_dir $lon
0540: 67 50 61 74 68 28 33 29 0a 0a 73 65 74 20 66 69  gPath(3)..set fi
0550: 6c 65 4e 61 6d 65 20 24 6c 6f 6e 67 50 61 74 68  leName $longPath
0560: 28 33 29 5c 5c 74 65 73 74 2e 64 62 0a 0a 64 6f  (3)\\test.db..do
0570: 5f 74 65 73 74 20 31 2e 33 20 7b 0a 20 20 6c 69  _test 1.3 {.  li
0580: 73 74 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 74  st [catch {sqlit
0590: 65 33 20 64 62 32 20 5b 73 74 72 69 6e 67 20 72  e3 db2 [string r
05a0: 61 6e 67 65 20 24 66 69 6c 65 4e 61 6d 65 20 34  ange $fileName 4
05b0: 20 65 6e 64 5d 7d 20 6d 73 67 5d 20 24 6d 73 67   end]} msg] $msg
05c0: 0a 7d 20 7b 31 20 7b 75 6e 61 62 6c 65 20 74 6f  .} {1 {unable to
05d0: 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 66   open database f
05e0: 69 6c 65 7d 7d 0a 0a 73 71 6c 69 74 65 33 20 64  ile}}..sqlite3 d
05f0: 62 33 20 24 66 69 6c 65 4e 61 6d 65 20 2d 76 66  b3 $fileName -vf
0600: 73 20 77 69 6e 33 32 2d 6c 6f 6e 67 70 61 74 68  s win32-longpath
0610: 0a 0a 64 6f 5f 74 65 73 74 20 31 2e 34 20 7b 0a  ..do_test 1.4 {.
0620: 20 20 64 62 33 20 65 76 61 6c 20 7b 0a 20 20 20    db3 eval {.   
0630: 20 42 45 47 49 4e 20 45 58 43 4c 55 53 49 56 45   BEGIN EXCLUSIVE
0640: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
0650: 4c 45 20 74 31 28 78 29 3b 0a 20 20 20 20 49 4e  LE t1(x);.    IN
0660: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
0670: 55 45 53 28 35 29 3b 0a 20 20 20 20 49 4e 53 45  UES(5);.    INSE
0680: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0690: 53 28 36 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  S(6);.    INSERT
06a0: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
06b0: 37 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  7);.    INSERT I
06c0: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 38 29  NTO t1 VALUES(8)
06d0: 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 78 20 46  ;.    SELECT x F
06e0: 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59 20  ROM t1 ORDER BY 
06f0: 78 3b 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20  x;.    COMMIT;. 
0700: 20 7d 0a 7d 20 7b 35 20 36 20 37 20 38 7d 0a 0a   }.} {5 6 7 8}..
0710: 64 62 33 20 63 6c 6f 73 65 0a 23 20 70 75 74 73  db3 close.# puts
0720: 20 22 20 20 44 61 74 61 62 61 73 65 20 65 78 69   "  Database exi
0730: 73 74 73 20 5c 7b 5b 65 78 69 73 74 73 5f 77 69  sts \{[exists_wi
0740: 6e 33 32 5f 70 61 74 68 20 24 66 69 6c 65 4e 61  n32_path $fileNa
0750: 6d 65 5d 5c 7d 22 0a 0a 73 71 6c 69 74 65 33 20  me]\}"..sqlite3 
0760: 64 62 33 20 24 66 69 6c 65 4e 61 6d 65 20 2d 76  db3 $fileName -v
0770: 66 73 20 77 69 6e 33 32 2d 6c 6f 6e 67 70 61 74  fs win32-longpat
0780: 68 0a 0a 64 6f 5f 74 65 73 74 20 31 2e 35 20 7b  h..do_test 1.5 {
0790: 0a 20 20 64 62 33 20 65 76 61 6c 20 7b 0a 20 20  .  db3 eval {.  
07a0: 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c    PRAGMA journal
07b0: 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a 20 20 7d  _mode = WAL;.  }
07c0: 0a 7d 20 7b 77 61 6c 7d 0a 0a 64 6f 5f 74 65 73  .} {wal}..do_tes
07d0: 74 20 31 2e 36 20 7b 0a 20 20 64 62 33 20 65 76  t 1.6 {.  db3 ev
07e0: 61 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 20 45  al {.    BEGIN E
07f0: 58 43 4c 55 53 49 56 45 3b 0a 20 20 20 20 49 4e  XCLUSIVE;.    IN
0800: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
0810: 55 45 53 28 39 29 3b 0a 20 20 20 20 49 4e 53 45  UES(9);.    INSE
0820: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0830: 53 28 31 30 29 3b 0a 20 20 20 20 49 4e 53 45 52  S(10);.    INSER
0840: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
0850: 28 31 31 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  (11);.    INSERT
0860: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
0870: 31 32 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20  12);.    SELECT 
0880: 78 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20  x FROM t1 ORDER 
0890: 42 59 20 78 3b 0a 20 20 20 20 43 4f 4d 4d 49 54  BY x;.    COMMIT
08a0: 3b 0a 20 20 7d 0a 7d 20 7b 35 20 36 20 37 20 38  ;.  }.} {5 6 7 8
08b0: 20 39 20 31 30 20 31 31 20 31 32 7d 0a 0a 64 62   9 10 11 12}..db
08c0: 33 20 63 6c 6f 73 65 0a 23 20 70 75 74 73 20 22  3 close.# puts "
08d0: 20 20 44 61 74 61 62 61 73 65 20 65 78 69 73 74    Database exist
08e0: 73 20 5c 7b 5b 65 78 69 73 74 73 5f 77 69 6e 33  s \{[exists_win3
08f0: 32 5f 70 61 74 68 20 24 66 69 6c 65 4e 61 6d 65  2_path $fileName
0900: 5d 5c 7d 22 0a 0a 64 6f 5f 64 65 6c 65 74 65 5f  ]\}"..do_delete_
0910: 77 69 6e 33 32 5f 66 69 6c 65 20 24 66 69 6c 65  win32_file $file
0920: 4e 61 6d 65 0a 23 20 70 75 74 73 20 22 20 20 46  Name.# puts "  F
0930: 69 6c 65 73 20 72 65 6d 61 69 6e 69 6e 67 20 5c  iles remaining \
0940: 7b 5b 66 69 6e 64 5f 77 69 6e 33 32 5f 66 69 6c  {[find_win32_fil
0950: 65 20 24 6c 6f 6e 67 50 61 74 68 28 33 29 5c 5c  e $longPath(3)\\
0960: 2a 5d 5c 7d 22 0a 0a 64 6f 5f 72 65 6d 6f 76 65  *]\}"..do_remove
0970: 5f 77 69 6e 33 32 5f 64 69 72 20 24 6c 6f 6e 67  _win32_dir $long
0980: 50 61 74 68 28 33 29 0a 64 6f 5f 72 65 6d 6f 76  Path(3).do_remov
0990: 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 6c 6f 6e  e_win32_dir $lon
09a0: 67 50 61 74 68 28 32 29 0a 64 6f 5f 72 65 6d 6f  gPath(2).do_remo
09b0: 76 65 5f 77 69 6e 33 32 5f 64 69 72 20 24 6c 6f  ve_win32_dir $lo
09c0: 6e 67 50 61 74 68 28 31 29 0a 0a 66 69 6e 69 73  ngPath(1)..finis
09d0: 68 5f 74 65 73 74 0a                             h_test.